Как значения первого столбца отфильтрованных строк сцепить в формате текста

[midoks]

Коллеги!
Есть задумка, но не знаю как решить.
В таблице сделана выборка строк (с помощью элемента управления строк), фильтрую выбранные. Теперь значения первого столбца выбранных строк надо сцепить в формате текста и записать в назначенную ячейку.
Как организовать цикл процедуры, чтобы всегда в полученном тексте было столько исходных значений, сколько отфильтрованных строк.
Кто знает - помогите.

[IgorGO]

такой вариант
1. добавьте в проект программый модуль
2. скопируйте в него этот

Function FilteredA()
  Dim ws As Worksheet
  Set ws = ActiveSheet
  Range(Cells(1, 1), Cells(Rows.Count, 1)).Copy
  Worksheets.Add(after:=Worksheets(Worksheets.Count)).Paste
  FilteredA = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Value
  Application.DisplayAlerts = False
  Worksheets(Worksheets.Count).Delete
  Application.DisplayAlerts = False
End Function


Sub Test()
  Dim arr
  arr = FilteredA
  MsgBox UBound(arr)
End Sub

3. сделайте активным лист на котором фильтруете данные
4. выполните Test

[midoks]

Спасибо за отклик.

Я хочу пояснить проблему и высылаю Вам пример.

Продублирую текст:

Исходные данные:
Петров 1
Иванов 2
Сидоров 3
Петров 4
Иванов 5
Сидоров 6
Петров 7

Макрос:
После выборки фильтра "Петров" должны получить следующий результат:
Петров 1;4;7
Список Фамилий по числу строк может быть любым.
Проблема : как установить ограничение Текст1, Текст2 и т.д. В нашем случае ограничение должно быть из 3 значений. Здесь должен быть какой-то цикл с ограничением по условию.

[kuklp]

Вы просто-таки чемпион по разъяснениям. Может так надо?:

Public Sub www()
    Dim d As Object, a, i&
    Set d = CreateObject("scripting.dictionary")
    a = [a1].CurrentRegion.Value
    For i = 1 To UBound(a)
        If d.Item(a(i, 1)) = "" Then
            d.Item(a(i, 1)) = a(i, 2)
        Else
            d.Item(a(i, 1)) = d.Item(a(i, 1)) & "," & a(i, 2)
        End If
    Next
    [h1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

[IgorGO]

см. вложение

[IgorGO]

не смотря на полученный титул "чемпиона по разьяснениям"
читаем заголовок:
"Как значения первого столбца отфильтрованных строк..."
вникаем в задачу и понимаем, что сцепить в строку нужно значения с второго столбца и что даже чемпионам нужно работать над точностью формулировок

[Hugo121]

Можно поискать по форуму (или в сети) код UDF

=VLOOKUPCOUPLE($A$2:$B$8;1;A13;2;":")

Зачем обрезать 3 элемента - не понял... но можно навесить стандартные формулы поиска трёх элементов и выкидывать всё что после.

[midoks]

Спасибо за все и за критику то же.
Я не программист, я только учусь.
То, что Вы мне прислали - подходит. Теперь попробую применить в своей таблице учета.