求助一个各部门周报合并，感谢大佬

bloodnet

主要难点是每个部门的每个项目行数不一样
有的本周工作列多，有的下周工作列多
合并后要按每个部门最长的那个来贴（第一列最好能合并单元格，实在不能也行）
最后还要按照部门的名称顺序（文件名有01 02前缀）

fanyoulin

测试时用了另一个表，如果可行就把第一个删掉。
另外，子文件要放在主文件的同一个目录中

bloodnet

fanyoulin 发表于 2023-3-27 10:55
测试时用了另一个表，如果可行就把第一个删掉。
另外，子文件要放在主文件的同一个目录中

你好，我这运行之后好像窜行了
A1-应该是第一个部门的，A2提上来了，A3也是

bloodnet

大佬，我看第一个部门的 A1-5被后面的吞掉了呢。。。他的最长行数是变化的
目前只有采购部是5行都出来了，应该是后面的覆盖了上面的

ykcbf1100

附件请参考。。。

bloodnet

ykcbf1100 发表于 2023-3-27 12:42
附件请参考。。。

基本完美解决了，能麻烦每个复制过来的表
把抬头去掉么，不用每个部门的都把【本月推进】那行标题贴过来

---------------------
我测试了一下，把i=2 to r 改成3 to r 没问题吧

fanyoulin

bloodnet 发表于 2023-3-27 11:25
大佬，我看第一个部门的 A1-5被后面的吞掉了呢。。。他的最长行数是变化的
目前只有采购部是5行都出来 ...

4楼有人帮你做好了，你就用他的代码吧。
我的代码粘贴的时候有个单元格坐标搞错了，如果你要用，修改一个地方就行：
原错误的代码：
Cells(ActiveSheet.UsedRange.Rows.Count, 2).PasteSpecial Paste:=xlPasteValues
改成：
Cells(hs, 2).PasteSpecial Paste:=xlPasteValues

说明：ActiveSheet.UsedRange.Rows.Count 是数据的最后一行，实际上需要在最后的一行的下一行粘贴才对

bloodnet

ykcbf1100 发表于 2023-3-27 12:42
附件请参考。。。

大佬你好，前几天帮我解决了一个周报合并问题
请教一下，如果合之后要保留原格式（字体、颜色），是修改里面哪一句呀？

ykcbf1100

bloodnet 发表于 2023-4-2 16:21
大佬你好，前几天帮我解决了一个周报合并问题
请教一下，如果合之后要保留原格式（字体、颜色），是修 ...

保留原格式的话不能数组了，核心代码要重写。