¿Imprimir filas de celdas con el mismo número en una tabla EXCEL en una página?
Utilice un bucle para imprimir secuencialmente un número determinado en una hoja nueva, que es una página con un número
Suponiendo que los datos están en la hoja, cópielos a otras hojas usando vba
Sub print()
Rango("A2:E10000") = ""
Dim i, x, brr(1 a 10000, 1 a 5)
s = InputBox("Ingrese el número que se va a imprimir", "Mensaje del sistema: Consulta")
x = WorksheetFunction.CountIf(Sheets(1).Range( "E:E"), s )
Si x = 0 Entonces
MsgBox "No existe tal número, vuelva a ingresar"
Salir de Sub
Fin si
x = Sheets(1).Range("E65536").End(xlUp).Row
arr = Sheets(1).Range(" a2:e" & x)
Para i = 1 a UBound(arr)
Si arr(i, 5) = s Entonces
n = n 1
brr(n, 1) = llegar(i, 1)
brr(n, 2) = llegar(i, 2)
brr( n, 3) = llegar(i, 3)
brr(n, 4) = llegar(i, 4)
brr(n, 5) = llegar(i, 5) )
Finalizar si
Siguiente
[a2].Resize(n, 5) = brr
Fin Sub