[已解决][高手请出手吧~ ]整合多个格式相同的excel文件

walksss · 发表于 2012-6-6 07:47

consolidation.rar (30.19 KB, 下载次数: 11)

walksss · 发表于 2012-6-6 10:42

太难了么？唉....

zjdh · 发表于 2012-6-7 13:21

第二个方案不是给你答案了吗？

walksss · 发表于 2012-6-7 13:30

这个是昨天发的，多谢你了，救命之恩阿

zjdh · 发表于 2012-6-7 14:36

本帖最后由 zjdh 于 2012-6-7 14:43 编辑

多工作簿汇总(子目录).rar (77.78 KB, 下载次数: 37)

walksss · 发表于 2012-6-8 07:43

真是跪谢阿，怎么会有你这么无私而且热心的能干人呀，太感动了...

rabb1002 · 发表于 2013-7-30 20:30

厉害了，短短几行代码搞定啊

walksss · 发表于 2013-12-19 07:57

zjdh 发表于 2012-6-7 14:36

敢问这位大神，这个代码如何修改能变成只粘贴数值？跪谢！

zjdh · 发表于 2013-12-19 08:12

把
If UCase(SH.Name) = "NCM REVIEW" Then
SH.Range("A2:F" & SH.Range("A65536").End(3).Row).Copy Range("B65536").End(3)(2)
Range(Range("A65536").End(3)(2), Range("A" & Range("B65536").End(3).Row)) = Ddir(I) & "\" & Split(WB.Name, ".")(0)
Exit For
End If
改成
If UCase(SH.Name) = "NCM REVIEW" Then
SH.Range("A2:F" & SH.Range("A65536").End(3).Row).Copy Range("A65536").End(3)(2)
Exit For
End If

walksss · 发表于 2013-12-19 08:38

zjdh 发表于 2013-12-19 08:12
把
If UCase(SH.Name) = "NCM REVIEW" Then
SH.Range("A2:F" & SH.Range("A65536").End(3).Row).Copy ...

感谢回复。可能我的表述不是很清楚，您的回复只是删掉了第一列。

我的意思是，这个宏是连源文件中的公式一起粘贴过来的，如何让它粘贴的时候只粘贴数值，而不是连公式一起粘贴过来。

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

[已解决][高手请出手吧~ ]整合多个格式相同的excel文件

相关帖子

点评