已解决！请帮忙解决！！！！！

yulei_2000 · 发表于 2012-9-13 14:19

本帖最后由 yulei_2000 于 2012-9-13 15:08 编辑

资料请看附件：
要求：表一，表二的内容并到表三中，不用COPY的方式，设置好之后自动做到。
请详细告知操作步骤，谢谢！

jlf2003 · 发表于 2012-9-13 14:49

楼主:用简单的VBA可以解决.你一点按钮自动生成.
见附件:

document.zip (19.55 KB, 下载次数: 13)

yulei_2000 · 发表于 2012-9-13 14:59

问题是解决了，可是方法还是不知道呀~

yulei_2000 · 发表于 2012-9-13 14:59

那个VBA我能做吗？

yulei_2000 · 发表于 2012-9-13 15:00

jlf2003 发表于 2012-9-13 14:49
楼主:用简单的VBA可以解决.你一点按钮自动生成.
见附件:

VBA怎么弄，因为我有可能是上百张这个表

jlf2003 · 发表于 2012-9-13 17:22

yulei_2000 发表于 2012-9-13 15:00
VBA怎么弄，因为我有可能是上百张这个表

VBA对上百张运作一样快:
这是代码VBA运作,上百张用函数就会慢很多.
给你一个代码解释:
Sub test()
Sheets("表三").Select '选择"表三"为当前活动对象
Range("a2:g65536").ClearContents '清除"表三"内A2:G65536区域中的公式。

For Each s In ThisWorkbook.Sheets '选定当前工作薄中所有工作表
If s.Name <> "表三" Then    '假如工作表名字不是"表三"执行以下语句
   er = s.[a65536].End(xlUp).Row '取工作表中从A65536处往上取不为空的行
   tr = [a65536].End(xlUp).Row + 1 '取不为空的行再加一行
   s.Range("a2:i" & er).Copy Range("a" & tr) '拷贝选中的工作表不为空到"表三"中
End If
Next s '循环所有不含"表三"的工作表
MsgBox "汇总完成，请查看！", 64, "提示"

End Sub
若楼主实在不会,只能看你的样表,我再给你设置一下.

jlf2003 · 发表于 2012-9-13 17:28

yulei_2000 发表于 2012-9-13 14:59
那个VBA我能做吗？

你可以做到,但必须学一些基本知识,很容易的.

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

已解决！ 请帮忙解决！！！！！

评分

已解决！请帮忙解决！！！！！