У меня есть эта пользовательская функция VBA

Public Function concatenatespecial(rng As Range) As String

Dim rng1 As Range

concatenatespecial = ""

   For Each rng1 In rng
        If (Not Rows(rng1.Row).Hidden) And (rng1.Value <> "") And (Not rng1.Interior.ColorIndex = -4142) Then
            concatenatespecial = concatenatespecial & rng1.Text & "|"
        End If
   Next rng1

End Function

Он берет все желтые и непустые ячейки в диапазоне и объединяет его с "|".

Проблема в том, что он работает, только если эти ячейки окрашены вручную. Когда это окрашено условным форматированием, это не работает.

Не могли бы вы помочь мне с решением?

Лучшее объяснение:

0