如何修改Excel VBA合并代码以指定范围复制多工作表数据

原代码使用UsedRange复制数据时，因部分单元格存在隐形值（如空格、空文本）导致合并后排版混乱，以下提供两种修改方案：

方案1：固定复制指定范围（如$A$1:$L$51） #

此方案直接设定要复制的单元格范围，确保每个工作表只复制目标区域，避免无效数据干扰：

Sub CombineFixedRange()
    Dim wsCombined As Worksheet
    Dim ws As Worksheet
    Dim targetRow As Long
    
    ' 创建合并工作表并放置在最前
    Set wsCombined = Worksheets.Add(Before:=Sheets(1))
    wsCombined.Name = "Combined"
    
    ' 复制第一个原工作表的完整指定范围（包含表头）
    Sheets(2).Range("$A$1:$L$51").Copy wsCombined.Range("A1")
    targetRow = wsCombined.Range("$A$1:$L$51").Rows.Count + 1
    
    ' 循环处理剩余工作表，跳过表头避免重复
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> wsCombined.Name And ws.Name <> Sheets(2).Name Then
            ws.Range("$A$2:$L$51").Copy wsCombined.Cells(targetRow, 1)
            targetRow = targetRow + ws.Range("$A$2:$L$51").Rows.Count
        End If
    Next ws
End Sub

说明：如果不需要跳过表头，可将ws.Range("$A$2:$L$51")改为ws.Range("$A$1:$L$51")，同时调整targetRow的初始值。

方案2：手动选择复制范围（从第一个工作表界面定义） #

此方案允许你在运行代码时，直接在第一个原工作表中框选需要复制的范围，灵活性更高：

Sub CombineUserSelectedRange()
    Dim wsCombined As Worksheet
    Dim ws As Worksheet
    Dim sourceRng As Range
    Dim targetRow As Long
    
    ' 弹出对话框让用户选择目标范围
    Set sourceRng = Application.InputBox(prompt:="请在第一个工作表中选择要复制的范围", Type:=8)
    
    ' 创建合并工作表
    Set wsCombined = Worksheets.Add(Before:=Sheets(1))
    wsCombined.Name = "Combined"
    
    ' 复制第一个工作表的选中范围
    sourceRng.Copy wsCombined.Range("A1")
    targetRow = sourceRng.Rows.Count + 1
    
    ' 循环复制其他工作表的对应范围
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> wsCombined.Name And ws.Name <> sourceRng.Parent.Name Then
            ' 若需跳过表头，替换为 sourceRng.Offset(1,0).Resize(sourceRng.Rows.Count-1)
            ws.Range(sourceRng.Address).Copy wsCombined.Cells(targetRow, 1)
            targetRow = targetRow + sourceRng.Rows.Count
        End If
    Next ws
End Sub

说明：运行代码后，点击第一个工作表并框选目标区域即可，所有其他工作表会自动复制相同地址的单元格范围到合并表。

内容的提问来源于stack exchange，提问作者Moustafa Helmy