Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.02.2018, 16:00   #1
Ppaa
Форумчанин
 
Регистрация: 20.12.2010
Сообщений: 107
Вопрос Вывод номеров телефонов по повторяющимся house_id

Здравствуйте!

Есть список house_id и номеров телефонов, привязанных к ним. Одному одному house_id (они повторяются) могут принадлежать несколько номеров телефонов.
Нужно на Листе1 с уникальными house_id выбрать контактные телефоны, так, как указано в примере.
Пробовал комбинациями с ВПР и ИНДЕКС И ПОИСКПОЗ ищет только первое вхождение.
Помогите пожалуйста!
Вложения
Тип файла: xlsx Книга1.xlsx (12.8 Кб, 17 просмотров)
Ppaa вне форума Ответить с цитированием
Старый 21.02.2018, 20:59   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Удобно получать список телефонов вместе с уникальными house_id. Макрос создает новый лист перед текущим.
Код:
Sub Ppaa()
Dim v(), x, y, i&, k&, j&, m&, s$, di As Object
  Set di = CreateObject("scripting.dictionary")
  v = Range("E1", Cells(Rows.Count, "F").End(xlUp)).Value
  For i = 1 To UBound(v)
    s = Trim$(di(v(i, 1))) & " " & Trim$(v(i, 2))
    di(v(i, 1)) = s
    j = Len(s) - Len(Replace(s, " ", ""))
    If j > m Then m = j
  Next
  ReDim v(1 To di.Count, 0 To m + 1)
  For Each x In di.keys
    k = k + 1
    v(k, 0) = x
    j = 0
    For Each y In Split(Trim$(di(x)))
      j = j + 1
      v(k, j) = y
  Next: Next
  Worksheets.Add(ActiveSheet).Range("A1").Resize(k, m + 2).Value = v
  Columns.AutoFit
End Sub
Вложения
Тип файла: zip Книга11.zip (19.8 Кб, 14 просмотров)
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 27.02.2018, 13:43   #3
Ppaa
Форумчанин
 
Регистрация: 20.12.2010
Сообщений: 107
По умолчанию

Большое спасибо!
Ppaa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск по базе номеров телефонов SLOVE251 PHP 2 03.11.2017 17:02
Создать БД. Cписок из фамилий студентов и номеров телефонов. Выделить номер АТС. Поиск по номеру. ( делфи ) dima96 Помощь студентам 1 03.02.2013 13:55
Вывод номеров с Unreasonable Value zenner Microsoft Office Excel 4 08.10.2010 13:20
Вывод номеров из файла zenner Microsoft Office Excel 4 02.11.2009 15:52