有这样一个表,想用筛选的方式,减少for循环,让D列的相同名称的数据复制到后面对应的工作表里
代码如下:
Sub shaifen()
Dim i As Integer
For i = 2 To Sheets.Count
Sheet1.Range(“a1:f1048”).AutoFilter Field:=4, Criteria1:=Sheets(i).Name
Sheet1.Range(“a1:f1048”).Copy Sheets(i).Range(“a1”)
Next
Sheet1.Range(“a1:f1048”).AutoFilter
End Sub
这里只遍历了工作表的总数量次数
首先第一部分
Sheet1.Range(“a1:f1048”).AutoFilter Field:=4, Criteria1:=Sheets(i).Name
Sheet1.Range(“a1:f1048”) 表示sheet1里的a1:f1048的区域
AutoFilter Field:=4, 表示自动筛选的列是第四列
2.
Criteria1:=Sheets(i).Name表示筛选的条件,按照sheet(2).Name
sheet(3).Name sheet(4).Name…来筛选
然后第二部分,筛选完了之后
Sheet1.Range(“a1:f1048”).Copy Sheets(i).Range(“a1”)
1.
Sheet1.Range(“a1:f1048”) .Copy是复制sheet1的a1:f1048的区域
2.
Copy Sheets(i).Range(“a1”)
复制到sheets(2)的a1里
第三部分
Sheet1.Range(“a1:f1048”).AutoFilter
这段意思是,取消筛选,这样别人就看不出来我们是怎么实现的了