Excel 如何从可见单元格返回文本?

Excel 如何从可见单元格返回文本?,excel,aggregate-functions,subtotal,Excel,Aggregate Functions,Subtotal,我想创建一个从可见单元格返回文本的单元格,将此单元格链接到图表标题。函数AGGREGATE和SUBTOTAL只返回可见单元格中的数字。有没有返回文本的方法?没有任何类型的示例,我只能使用& 见: 其中,单元格C15包含文本“a测试” 或者如果B15包含“这是” 然后: 我同样不清楚需要什么。但是,我创建此公共函数是为了执行您要求的操作: Option Explicit Public Function ConcatVisibleWithSeparator(rngRange As Range, s

我想创建一个从可见单元格返回文本的单元格,将此单元格链接到图表标题。函数AGGREGATE和SUBTOTAL只返回可见单元格中的数字。有没有返回文本的方法?

没有任何类型的示例,我只能使用&

见:

其中,单元格C15包含文本“a测试”

或者如果B15包含“这是” 然后:


我同样不清楚需要什么。但是,我创建此公共函数是为了执行您要求的操作:

Option Explicit

Public Function ConcatVisibleWithSeparator(rngRange As Range, strSeparator As String) As String
    Dim rngCell As Range
    Dim strReturn As String
    For Each rngCell In rngRange
        If rngCell.EntireRow.Hidden = False Then
            strReturn = strReturn & rngCell.Value & strSeparator
        End If
    Next rngCell
    ConcatVisibleWithSeparator = Left(strReturn, Len(strReturn) - Len(strSeparator))
End Function
它在单元格中被调用,如下所示:

=ConcatVisibleWithSeparator(B2:B7," ")
它所做的是用值之间的指定分隔符连接指定范围内的所有内容

附两个示例作为参考资料

在这里:

在这里:

Option Explicit

Public Function ConcatVisibleWithSeparator(rngRange As Range, strSeparator As String) As String
    Dim rngCell As Range
    Dim strReturn As String
    For Each rngCell In rngRange
        If rngCell.EntireRow.Hidden = False Then
            strReturn = strReturn & rngCell.Value & strSeparator
        End If
    Next rngCell
    ConcatVisibleWithSeparator = Left(strReturn, Len(strReturn) - Len(strSeparator))
End Function
=ConcatVisibleWithSeparator(B2:B7," ")