如何将excel中一个文件里的多个sheet表合并到一个表里用代码完成

发布网友发布时间：2023-04-22 05:06

共1个回答

热心网友时间：2023-10-17 22:34

说得不具体，给你个思路，首先要判断一个工作簿中有多少个sheet，如果每一个sheet中分别有多少行和多少列，需要合并到哪个sheet中去，如果所有sheet的行数和列数超出一个sheet中允许的最大行数或列数，则出错或者将后续超出的忽略不合并，还要指定每一个sheet中的数据在合并表中的开始单元格位置等等信息。
for
i=2
to
sheets.count
'将第二个表以后的表合并到第一个表中
Sheets(i).UsedRange.Select
'将每一个表的有效数据区域复制起来
Sheet1.Cells(UsedRange.Rows
+
1,
1).Activate
'获得表1的有效数据区域，然后激活其第一列的下一行
Sheet1.Paste
'粘贴数据
'如果行数超出*，则要
Sheet1.Cells(
1,
UsedRange.Columns+1).Activate
'获得表1的有效数据区域，然后激活其第一行的最右边的一列
Sheet1.Paste
'粘贴数据
next
i
抛砖引玉，自己根据自己的需要去编制。