1.Excel多个工作簿中的工作表合并到一个工作簿中的宏代码 2.多个exce...

发布网友发布时间：2024-10-06 07:18

共1个回答

热心网友时间：2024-10-06 07:44

在这里先感谢一下 pgqh 为我们提供的答案，我把代码发出来你，代码的功能就是把一个工作薄里的多个工作表合并复制。下面是代码，只需要更新一下n值和 nstart值，n代表你需要合并的工作表所在的位置是第几个。假如你有3个工作表需要合并到第4个表格里，n就等于4 nstart值就是每个工作表需要从第几行复制，我的是从每个工作表的第3行复制，要合并前面23个工作表到第24个表格里所以下面的代码我的n值就是23 nstart值就是3 代码复制进去后按F5 就可以了，不过当前面的工作表变动后是不能自动更新的，更新的话需要手动打开代码的按F5 我咨询过这种合并不能实现自动更新的，我也是好多天才理解透这个问题的，说的详细一点只是为了让更多和我一样不懂EXCEL的人更能理解使用方法，下面的代码全部复制，更改第2行和第3行的数据再按F5就成功了
Sub 合并sheets()
n = 23 '源表个数，根据需要修改！
nstart = 3 '每个单表数据的开始行数，根据需要修改！
k = nstart '目标表的行标
For i = 1 To n
irow = nstart '行标
While Sheets(i).Cells(irow + 1, 2) <> "" '后面个1以第2列数据的最后1行是空作为行结束标示,确定源表的行数，根据需要修改！
irow = irow + 1
Wend
Sheets(i).Rows(nstart & ":" & irow).Copy '复制源数据行
Sheets(n + 1).Activate
Sheets(n + 1).Cells(k, 1).Select
ActiveSheet.Paste '粘贴数据
k = k + irow - nstart + 1
Next i
End Sub

1.Excel多个工作簿中的工作表合并到一个工作簿中 的宏代码 2.多个exce...

1.Excel多个工作簿中的工作表合并到一个工作簿中的宏代码 2.多个exce...