同一工作簿内合并同格式多表数据并不需显示多个表头

csb740621 · 发表于 2012-9-29 13:29

各位老师:
在同一工作簿内合并多表数据,但不需要将后面同格式的表头也一起合并过来.请求指导.

复件 9月组装物料管控表11.rar (147.25 KB, 下载次数: 11)

zhaogang1960 · 发表于 2012-9-29 13:41

Sub Macro1()
Dim sh As Worksheet, sht As Worksheet, m&
Application.ScreenUpdating = False
Application.Calculation = xlManual
Set sht = ActiveSheet
sht.Cells.Clear
For Each sh In Sheets
      If sh.Name <> sht.Name Then
         m = m + 1
         If m = 1 Then
            sh.UsedRange.Copy sht.Cells(1, 1)
         Else
            sh.UsedRange.Offset(4).Copy sht.Cells(sht.UsedRange.Find("*", , -4163, , 1, 2).Row + 1, 1)
         End If
      End If
Next
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub

zhaogang1960 · 发表于 2012-9-29 13:42

请看附件

复件 9月组装物料管控表11.rar (145.14 KB, 下载次数: 54)

csb740621 · 发表于 2012-9-29 13:52

谢谢老师,我是用表上一个"常用工具"--"合并"做的.(照其他老师学的),能否在那个代码里改一下,因为有的表我不需要合并.谢谢.

lrh788 · 发表于 2018-6-25 15:03

学习！！！！

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

[求助] 同一工作簿内合并同格式多表数据并不需显示多个表头

评分