使用VBA宏合并excel不同sheet的内容

直接合并

• 打开VBA编辑器：

  • 按 Alt + F11 打开VBA编辑器。

• 插入模块：

  • 点击“插入” > “模块”，然后在新模块中粘贴以下代码：

    Sub 合并工作表()
        Dim ws As Worksheet
        Dim targetWs As Worksheet
        Dim targetRow As Long
        Set targetWs = ThisWorkbook.Sheets.Add
        targetRow = 1
    
        For Each ws In ThisWorkbook.Sheets
            If ws.Name <> targetWs.Name Then
                ws.UsedRange.Copy targetWs.Cells(targetRow, 1)
                targetRow = targetRow + ws.UsedRange.Rows.Count
            End If
        Next ws
    End Sub
    

• 运行宏：

  • 按 F5 运行宏，所有工作表的数据将被复制并粘贴到新工作表中。

合并并在第一列加上sheet名

其他操作一致，代码改成：

Sub 合并工作表并添加Sheet名()
    Dim ws As Worksheet
    Dim targetWs As Worksheet
    Dim targetRo