excel - 自定义函数不适用于过滤

Question

我有这个：

我有 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

我需要浏览列并写下其中以“|”分隔的内容，这样效果很好。

我的问题是它不能进行过滤。当我过滤掉某些内容时，它仍然显示相同的结果。

过滤后

Answer 1

修改您的条件：

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