Excel 自定义连接颜色条件

Question

我有这个自定义 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

它获取范围内所有黄色且非空白的单元格并用“|”连接起来。

问题是，只有手动为这些单元格着色时，它才有效。当通过条件格式着色时，它不起作用。

您能帮我解决问题吗？

更好的解释：