Dim j為整數
工作表(“打印發票”)。挑選
計數=工作表(“人員信息”)。[A65536]。結束(xlUp)。排
對於要計數的j = 2
帶工作表(“人員信息”)
Cells(2，4) =。細胞(j，2)& amp；。單元格(j，1)
以…結尾
活動窗口。選定的工作表。打印輸出份數:=1
然後
末端接頭