怎样在数据合并时排除其他工作表？

可以使用VBA编写宏来实现数据合并时排除其他工作表。

代码示例：

Sub ConsolidateData() Dim wb As Workbook Dim ws As Worksheet Dim rngDest As Range Dim strSrcSheet As String

'指定当前工作簿
Set wb = ThisWorkbook

'指定目标工作表和合并数据的起始单元格
Set ws = wb.Sheets("MasterSheet")
Set rngDest = ws.Range("A1")

'指定想要排除的工作表名称
strSrcSheet = "Sheet2,Sheet3"

'循环遍历所有工作表
For Each ws In wb.Worksheets
    '排除指定名称的工作表
    If InStr(strSrcSheet, ws.Name) = 0 And ws.Name <> "MasterSheet" Then
        '确定源数据的范围
        Set rngSrc = ws.Range("A1").CurrentRegion
        
        '将源数据复制到目标工作表
        rngSrc.Copy rngDest
        
        '调整目标工作表的范围
        Set rngDest = rngDest.Offset(rngSrc.Rows.Count, 0)
    End If
Next ws

'删除目标工作表中的空白行
DeleteBlankRows

End Sub

'删除空白行子程序 Sub DeleteBlankRows() Dim rng As Range Dim i As Long

'指定目标工作表和起始单元格
Set rng = ThisWorkbook.Sheets("MasterSheet").Range("A1")

'从下往上循环遍历所有行
For i = rng.Rows.Count To 1 Step -1
    '判断该行是否为空白行
    If WorksheetFunction.CountA(rng.Rows(i)) = 0 Then
        '如果是，则删除该行
        rng.Rows(i).Delete xlShiftUp
    End If
Next i

End Sub