Ayuda de programación VBA, espera a Dios en línea ~
Sub QBDY()
Dim j As Integer
Hojas de trabajo("Imprimir factura").Seleccione
Contar = Hojas de trabajo("Información de la persona").[A65536 ].End(xlUp).Row
Para j = 2 para contar
Utilice la hoja de trabajo ("Información del personal")
Celdas (2, 4) = .Cells(j, 2) & .Cells(j, 1)
Terminar con
ActiveWindow.SelectedSheets.PrintOut Copias:=1
Siguiente< / p>
Fin del subtítulo