利用VBA如何将工作表1的内容复制到工作表2里面?

Question

筛选出所有实际数量为0的，复制到sheet2里。然后删除所有地址为广东的，删除后再将实际数量为0的内容，从sheet2复制回来到sheet1 ，最后删除地址栏里为空值的那行。 这只是一个列子，实际工作中的文件每天都有变动，实际数量，地址栏里的内容都会有变动的。

序 电视 数量 实际数量 地址
1 电视 34 0 上海
2 电脑 32 32 北京
2 电视 54 54 山西
4 电脑 45 40 广东
3 电扇 4 0
4 电扇 4 0 广东
4 电视 4 4 广东
4 电扇 4 4 河南

Answer 1

给你个最实用的代码吧 用单元格已使用区域Copy到新的表中
用下面代码要指明第左上解单元格
要复制表的区域.Copy Destination:=接收复制表的左上角单元格
如
把SHEET1中的已使用区域复制到SHEET2中 以SHEET2的A1单元格为起来粘贴进SHEET2
Dim myRange1 As Range
Dim myRange2 As Range
Set myRange1 = Sheets1.UsedRange
Set myRange2 = Sheets2.Range("A1")
myRange1.Copy Destination:=myRange2

删除行得用循环 加 条件加行删除就OK了