excel中的sheet1 sheet2 sheet3怎样快捷合并
发布网友
共1个回答
热心网友
用VBA
在sheet1 处右键，查看代码
打开我们的 vb编辑器，输入以下代码：
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，运行后我们得到所有数据。
