同一工作簿中的多个工作表合并到一个工作表的代码（通用代码）

lrh788 · 发表于 2018-3-24 16:24

本帖最后由 lrh788 于 2018-3-25 07:34 编辑

工作簿中有n个工作表，如何用代码将其合并到一个表中，且除第一个表全复制外，从第二个表开始仅复制表头以外的其他数据！请大神编写一个通用的代码！

carlostevez1984 · 发表于 2018-3-24 17:13

是不是得限定个前提条件，所有工作表的格式一样？不然合并就没有意义了。

carlostevez1984 · 发表于 2018-3-24 17:14

发个附件，我直接在你的真实数据上面给你写。

lsc900707 · 发表于 2018-3-24 17:41

论坛里有很多实例可供参考！
提问时要提供必要的附件！

lrh788 · 发表于 2018-3-24 17:53

所有表格一样

LMY123 · 发表于 2018-3-24 17:57

lrh788 发表于 2018-3-24 17:53
所有表格一样

Sub bz()
Dim sh As Worksheet, ar
Application.ScreenUpdating = False
With Sheet7
      .[a2:g500].ClearContents
      For Each sh In Sheets(Array("表1", "表2", "表3", "表4"))
         ar = sh.UsedRange.Offset(1, 0)
         .Range("A65536").End(3).Offset(1, 0).Resize(UBound(ar), UBound(ar, 2)) = ar
      Next
End With
Application.ScreenUpdating = True
End Sub

lrh788 · 发表于 2018-3-24 19:56

LMY123 发表于 2018-3-24 17:57
Sub bz()
Dim sh As Worksheet, ar
Application.ScreenUpdating = False

For Each sh In Sheets(Array("表1", "表2", "表3", "表4"))把这个修改成任意工作表表达方式

lrh788 · 发表于 2018-3-24 20:00

本帖最后由 lrh788 于 2018-3-24 22:19 编辑

LMY123 发表于 2018-3-24 17:57
Sub bz()
Dim sh As Worksheet, ar
Application.ScreenUpdating = False

工作表名可否用通用形式表达

lsc900707 · 发表于 2018-3-24 21:51

lrh788 发表于 2018-3-24 20:00
工作表名可否用通用形式表达如"*&XLS"

你好像是工作表和工作簿没分清楚。

lrh788 · 发表于 2018-3-24 22:18

lsc900707 发表于 2018-3-24 21:51
你好像是工作表和工作簿没分清楚。

不用表1.表2.表3表达表名，用模糊表名表达

		自动登录	找回密码
密码			免费注册

[求助] 同一工作簿中的多个工作表合并到一个工作表的代码（通用代码）

评分