[已解决]分别合并指定文件夹各工作簿中的各工作表

dejoy · 发表于 2007-12-13 21:30

谢谢，很有借鉴意义，我也正想做这么个

qhjexcel · 发表于 2007-12-28 09:34

我经常处理全县各学校上报的数据,这个很有用.谢谢!

amdme · 发表于 2008-1-25 11:00

LZ

收邮件，请问如何合并（追加而不是罗列）同一目录下各个工作簿中各工作表中的数据，

参见邮件附件，感谢

LangQueS · 发表于 2008-1-25 11:26

QUOTE:

以下是引用amdme在2008-1-25 11:00:30的发言：

LZ

收邮件，请问如何合并（追加而不是罗列）同一目录下各个工作簿中各工作表中的数据，

参见邮件附件，感谢

建议amdme在程序开发版专发问题帖求助。

chenhuafu · 发表于 2008-1-25 16:03

QUOTE:

以下是引用LangQueS在2007-12-1 11:11:02的发言：

感谢山版在2楼的修改，文件更完美了！

完全可以正式使用了，再次感谢山版的帮助！

WPhxwxFg.rar (24.29 KB, 下载次数: 1312)

看到还有很多人看不明白，那我就给它一个详细的注释，看能不能帮助那些需要得人？

chenhuafu · 发表于 2008-1-25 16:20

     .Range("a" & nr).Resize(1, nl + 1).Formula = "=LEFT(ADDRESS(ROW(),COLUMN(),2),FIND(""$"",ADDRESS(ROW(),COLUMN(),2))-1)"
                    .Range("a" & nr).Resize(1, nl + 1) = .Range("a" & nr).Resize(1, nl + 1).Value
                    .Range("a" & nr).Resize(1, nl + 1).Interior.ColorIndex = 37

多了一串公式，返回各列的列标，然后用 .Value 来替掉公式

其余不变。

fycwater · 发表于 2008-1-25 17:01

学习中

LangQueS · 发表于 2008-1-25 18:04

特别感谢chenhuafu！

amdme · 发表于 2008-1-25 20:29

chenhuafu能够给我的呢个求助帖提供个解答，感谢！

http://club.excelhome.net/viewthread.php?tid=296131&px=0

[此贴子已经被作者于2008-1-25 20:30:13编辑过]

amdme · 发表于 2008-1-25 20:29

http://club.excelhome.net/viewthread.php?tid=296131&px=0

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

[已解决] [已解决]分别合并指定文件夹各工作簿中的各工作表