怎样将多个EXCEL文档合并成一个?
发布网友
发布时间：2022-04-22 21:55
共1个回答
热心网友
时间：2023-09-19 00:03
Sheet
作为合并目标
Sheet
，这个
Sheet
必须是第一个
Sheet
哦。
如果不合并标题行（比如第一行）则
j=1
改为
j=2
如果数据不是从第一行，或者第一列开始的，请修改
j=1
及
k=2
两行的参数。
比如
j=2
k=3
表示从
第2行，第三列开始的数据。
Sub
CombineSheet()
Dim
i,
j,
k,
n
As
Integer
n
=
1
For
i
=
2
To
ThisWorkbook.Sheets.Count
For
j
=
1
To
ThisWorkbook.Sheets(i).UsedRange.Rows.Count
For
k
=
1
To
ThisWorkbook.Sheets(i).UsedRange.Columns.Count
ThisWorkbook.Sheets(1).Cells(n,
k).Value
=
ThisWorkbook.Sheets(i).Cells(j,
k).Value
Next
k
n
=
n
+
1
Next
j
Next
i
End
Sub
