在sheet1中 E1输入1，E2输入5
Sub s() Sheet1.Select For i = [e1] To [e2] [d2] = Sheet3.Cells(i, 1) ActiveSheet.PrintOut Copies:=1 NextEnd Sub
