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

chenwerr · 发表于 2008-1-27 09:33

小弟每天都有个“销售日报”要做。一个月要有30个工作薄，当中只有一个工作表且名称相同。最后我希望他们能一次性合并到一个工作簿中。及一个工作簿（汇总的这个）含有30个工作表。谁能帮我做个宏，我的好象没楼主的那么复杂哦！

DzwJGHl0.rar (26.87 KB, 下载次数: 60)

LangQueS · 发表于 2008-1-27 13:12

QUOTE:

以下是引用chenwerr在2008-1-27 9:33:20的发言：
小弟每天都有个“销售日报”要做。一个月要有30个工作薄，当中只有一个工作表且名称相同。最后我希望他们能一次性合并到一个工作簿中。及一个工作簿（汇总的这个）含有30个工作表。谁能帮我做个宏，我的好象没楼主的那么复杂哦！

使用本帖5楼的附件就可以了吧。

tzjt9609 · 发表于 2008-4-14 15:28

那些提取的数据在什么地方

zqh0421 · 发表于 2008-4-14 16:48

还是不懂也

xmxm18 · 发表于 2008-4-15 09:56

学习

yunli · 发表于 2008-5-4 10:30

[em06]

LangQueS · 发表于 2008-5-21 17:33

试验：

Sub 指定单元的数据有效性下拉菜单选第n项()
for i = 1 to n 'n是自动筛选选项的最大值
Range("av2") = Range(Range("av2").Validation.Formula1).Item(i)
End Sub

lieti · 发表于 2008-5-23 00:02

工作中正好用上，学习中。

nlxxz · 发表于 2008-6-19 22:33

牛人到处有，这里特别多，佩服佩服。

lyllc2002 · 发表于 2008-7-1 22:16

请问山菊花，能否在5楼的基础上，修改成能合并从第几行到第几行（如第3行到第5行），最好能保留数行的标题行，如能达到，将更好使用。谢谢

00TlMvvd.rar (24.47 KB, 下载次数: 50)

[此贴子已经被作者于2008-7-2 7:48:51编辑过]

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

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

小弟的问题更简单，谁能帮我改一下，谢谢