[求助] 怎样将两工作表自动复制至指定的工作表.谢谢!

xhcyi · 发表于 2012-5-24 22:23

提示: 作者被禁止或删除内容自动屏蔽

貌似小孩 · 发表于 2012-5-24 23:05

Sub test()
Dim sht As Worksheet
Sheets("汇总表").Cells.Delete
For Each sht In Worksheets
If sht.Name <> "汇总表" Then
sht.UsedRange.SpecialCells(xlCellTypeVisible).Copy
Sheets("汇总表").Select
Sheets("汇总表").Range("a" & [a65536].End(3).Row + 1).Select
ActiveSheet.Paste
End If
Next sht
End Sub

复制代码

兰色幻想 · 发表于 2012-5-24 23:07

Sheets("数据1").Range("A1:U18").SpecialCells(xlCellTypeVisible).Copy Sheets("汇总表").Range("A65536").End(xlUp).Offset(1, 0)
Sheets("数据2").Range("A1:U18").SpecialCells(xlCellTypeVisible).Copy Sheets("汇总表").Range("A65536").End(xlUp).Offset(1, 0)

xhcyi · 发表于 2012-5-24 23:45

提示: 作者被禁止或删除内容自动屏蔽

xhcyi · 发表于 2012-5-24 23:48

提示: 作者被禁止或删除内容自动屏蔽

xhcyi · 发表于 2012-5-24 23:55

提示: 作者被禁止或删除内容自动屏蔽

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

xhcyi xhcyi 当前离线积分 178 IP卡狗仔卡	发表于 2012-5-24 22:23 \| 显示全部楼层 \|阅读模式工作中常用的Excel函数公式，全印在一张超大鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
xhcyi xhcyi 当前离线积分 178 IP卡狗仔卡
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡
	工作中最常用的函数公式，全印在一张超大的鼠标垫上

xhcyi xhcyi 当前离线积分 178 IP卡狗仔卡	楼主\| 发表于 2012-5-24 23:45 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
xhcyi xhcyi 当前离线积分 178 IP卡狗仔卡
	回复使用道具举报显身卡

xhcyi xhcyi 当前离线积分 178 IP卡狗仔卡	楼主\| 发表于 2012-5-24 23:48 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
xhcyi xhcyi 当前离线积分 178 IP卡狗仔卡
	回复使用道具举报显身卡

xhcyi xhcyi 当前离线积分 178 IP卡狗仔卡	楼主\| 发表于 2012-5-24 23:55 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
xhcyi xhcyi 当前离线积分 178 IP卡狗仔卡
	回复使用道具举报显身卡