同个工作薄多表合并到一个工作表

lose_the_way · 发表于 2020-2-12 22:18

各位大神，小弟这个工作薄表单太多，看了各位大神的帖子，还是无法实现合并，求大神帮忙

sobili · 发表于 2020-2-13 09:20

2.1这张工作表中有4列数据隐藏了。合并的时候需要吗？

3190496160 · 发表于 2020-2-13 09:36

1、这个问题，只能vba来处理
2、表格中大量的合并单元格，需要如何汇总？
3、最好做个汇总表的样式，并模拟几行数据，方便理解，不然，写出代码来可能你还得追问的，

iwangyi · 发表于 2020-2-13 10:14

Sub C()
Set MYSHEET = Worksheets.Add(AFTER:=Worksheets(Worksheets.Count))
MYSHEET.Name = "汇总"
For Each SH In Sheets
If SH.Name <> "汇总" Then
N = Sheets("汇总").[A65536].End(xlUp).Row + 1
SH.UsedRange.Offset(1).Copy Sheets("汇总").Range("A" & N)
End If
Next
End Sub

iwangyi · 发表于 2020-2-13 10:22

参考附件****************

xus123 · 发表于 2022-1-26 20:55

这个代码还是挺有用的，谢谢两位老师的分享

minchar · 发表于 2022-1-26 21:07

POWER QUERY比较省事

stephen_chiang · 发表于 2022-2-20 21:59

minchar 发表于 2022-1-26 21:07
POWER QUERY比较省事

没错，强烈推荐PowerQuery处理这些数据合并、修改、更新之类的需求

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

[求助] 同个工作薄多表合并到一个工作表