Excel如何从多个成员工作表汇总数据到Master Sheet并消除空值间隔

方案1：Excel 365/2021 及以上版本（最简方案） #

直接使用内置的TEXTJOIN函数即可实现自动忽略空值拼接，无需额外判断：

=TEXTJOIN(CHAR(10),TRUE,Member1!Q14,Member2!Q14,Member3!Q14,Member4!Q14,Member5!Q14,Member6!Q14,Member7!Q14)

参数说明：第二个参数设为TRUE即代表自动跳过所有空单元格，不会产生空白间隔。

方案2：Excel 2019及更早版本（无TEXTJOIN函数场景） #

通过IF逐个判断单元格非空后再拼接，最后去除末尾多余换行即可：

=IFERROR(LEFT(
IF(Member1!Q14<>"",Member1!Q14&CHAR(10),"")&
IF(Member2!Q14<>"",Member2!Q14&CHAR(10),"")&
IF(Member3!Q14<>"",Member3!Q14&CHAR(10),"")&
IF(Member4!Q14<>"",Member4!Q14&CHAR(10),"")&
IF(Member5!Q14<>"",Member5!Q14&CHAR(10),"")&
IF(Member6!Q14<>"",Member6!Q14&CHAR(10),"")&
IF(Member7!Q14<>"",Member7!Q14&CHAR(10),"")
,LEN(
IF(Member1!Q14<>"",Member1!Q14&CHAR(10),"")&
IF(Member2!Q14<>"",Member2!Q14&CHAR(10),"")&
IF(Member3!Q14<>"",Member3!Q14&CHAR(10),"")&
IF(Member4!Q14<>"",Member4!Q14&CHAR(10),"")&
IF(Member5!Q14<>"",Member5!Q14&CHAR(10),"")&
IF(Member6!Q14<>"",Member6!Q14&CHAR(10),"")&
IF(Member7!Q14<>"",Member7!Q14&CHAR(10),"")
)-1),"")

如果所有成员单元格都为空，IFERROR会自动返回空值，不会报错。

方案3：VBA自定义函数（适合成员表频繁变动场景） #

如果后续会新增/减少成员工作表，可使用自定义函数一次配置永久生效：

1. 按Alt+F11打开VBA编辑器，右键当前工作簿→插入→模块
2. 粘贴如下代码：

Function MergeMemberData(targetCell As String) As String
    Dim ws As Worksheet
    Dim result As String
    result = ""
    ' 遍历所有工作表，排除总表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Master Sheet" Then
            ' 非空内容才拼接
            If Trim(ws.Range(targetCell).Value) <> "" Then
                result = result & Trim(ws.Range(targetCell).Value) & vbCrLf
            End If
        End If
    Next
    ' 去掉末尾多余换行
    If Len(result) > 0 Then
        MergeMemberData = Left(result, Len(result) - 2)
    Else
        MergeMemberData = ""
    End If
End Function

3. 将工作簿保存为.xlsm启用宏格式，之后在Master Sheet汇总单元格输入公式=MergeMemberData("Q14")即可自动完成汇总，新增成员工作表无需修改公式。

通用注意事项 #

• 所有使用换行拼接的方案，都需要选中汇总单元格，在「设置单元格格式-对齐」中勾选自动换行，才能正常显示分行效果
• 如果成员工作表名称包含空格，需要用单引号包裹表名，例如'Member Zhang'!Q14

内容的提问来源于stack exchange，提问作者Daniel Reverent