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

>>阅读原文<<