У меня есть это:

У меня есть код VBA:

Public Function CONCATENATESPECIAL(rng As Range) As String

Dim rng1 As Range

CONCATENATESPECIAL = ""

   For Each rng1 In rng
        If rng1.Value <> "" Then
        CONCATENATESPECIAL = CONCATENATESPECIAL & rng1.Text & " | "
        End If
   Next rng1

End Function

Мне нужно пройти через столбец и записать в него содержимое, разделенное «|», которое работает отлично.

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

после фильтра

1 ответ1

0

Изменить ваши критерии:

If (not rng1.EntireRow.Hidden) And (rng1.Value <> "") Then

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .