VBA之将数据拆分到多个表(筛选)

有这样一个表,想用筛选的方式,减少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:f

>>阅读原文<<