有4萬條資料，要求列印篩選過的資料，並且每一個篩選結果項列印一次，如圖，每一個人列印一次，這裡有5個人，那就需要列印5次，每頁的內容只能有一個人的資料

下面是我寫的巨集

Sub printUser()


Sheet2.Columns("A").Delete

'從第一頁的C列中拷貝出所有不重複的資料到第二頁的A列中，這裡只需關注Sheet1.Columns("需要指定複製的列")

Sheet1.Columns("D").AdvancedFilter Action:=xlFilterCopy, Unique:=True, CopyToRange:=Sheet2.Columns("A")


Sheet2.Rows(1).Delete


'================= 以上內容可拷貝到其它模組中獨立執行 ==========================

Dim i As Integer

Dim filtValue As String

Dim rowCount As Integer

'因這裡會立即進行列印，所以建議進行測試操作，測試的時候請把等號後面的值改為3，正式執行時等號後跟著Sheet2.UsedRange.Rows.Count
rowCount = Sheet2.UsedRange.Rows.Count

For i = 1 To rowCount

filtValue = Sheet2.Cells(i, 1).Value

'這裡的Field:=4代表篩選人的列序號，4代表D列
Sheet1.Range("A1").AutoFilter Field:=4, Criteria1:=filtValue

Sheet1.PrintOut

Next

 

End Sub