85问答库 > excel中的sheet1 sheet2 sheet3怎样快捷合并

excel中的sheet1 sheet2 sheet3怎样快捷合并

2025-03-28 10:10:03

推荐回答（1个）

回答1：

用VBA

在sheet1 处右键，查看代码
打开我们的 vb编辑器，输入以下代码：

Sub 合并工作表()    [A2:I65536].ClearContents
    For sht = 2 To Sheets.Count
        With Sheets(sht)
            h1 = [a65536].End(3).Row
            h2 = .[a65536].End(3).Row
            .Range("a2:i" & h2).Copy Range("a" & h1 + 1)
        End With
    Next sht
End Sub

这个代码的意思是将文件内的所有工作表从A2开始合并到I列。

一般我们都有一行表头，如果是2行表头，那么我们将所有A2改为A3，合并列的位置是在A2:I65536和a2:i改这两个I，运行后我们得到所有数据。