一大堆表头相同的表格，一张张复制粘贴，有没有什么好的办法

chen418102 · 发表于 2017-1-20 17:17

本帖最后由爱疯于 2017-2-2 12:39 编辑

各位大神，一大堆表头相同的表格，一张张复制粘贴，太麻烦了，有没有什么好的办法，汇总在一起，谢谢！

望帝春心 · 发表于 2017-1-20 17:33

表头为什么要搞成三行合并的啊？

zyouong · 发表于 2017-1-20 17:39

1-18香港补货出口.rar (178.37 KB, 下载次数: 6)

望帝春心 · 发表于 2017-1-20 18:28

Sub 合并()
Dim sht As Worksheet, i&, arr
For i = 2 To Sheets.Count
n = n + 1
With Sheets(i)
arr = .Range(.Cells(11, 1), .Cells(.Cells(Rows.Count, 1).End(3).Row, "m"))
End With
If n = 1 Then
Sheets("汇总").Cells(4, 1).Resize(UBound(arr), 13) = arr
Else
Sheets("汇总").Cells(Rows.Count, 1).End(3).Offset(1, 0).Resize(UBound(arr), 13) = arr
End If
Next
End Sub

复制代码

望帝春心 · 发表于 2017-1-20 18:29

复制代码

望帝春心 · 发表于 2017-1-20 18:30

zyouong 发表于 2017-1-20 17:39

中间好像有空行

chen418102 · 发表于 2017-1-23 08:32

这是帮其他同事设的，他不会用VBA，中间空行可以全部删掉的，谢谢！

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