VBA編程求救，在線等大神~

Dim j As Integer

Worksheets("打印發票").Select

Count = Worksheets("人員信息").[A65536].End(xlUp).Row

For j = 2 To Count

With Worksheets("人員信息")

Cells(2, 4) = .Cells(j, 2) & .Cells(j, 1)

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Next

End Sub