Cómo utiliza Excel el filtrado VBA para clasificar datos
k = 1'k valor inicial
I = inputbox ("Ingrese el número del proyecto: ")" proporciona la información del número total de líneas
Para j = 1 a I' juicio de bucle
si hoja("hoja1").si en la columna 5. el valor es igual a 1, entonces texto = 1. p>
Paper("Paper1"). Pick
Range(Cell(j, 1), Cell(j, 5)) . Seleccione las primeras cinco columnas de datos en la Hoja 1.
Elija 'Seleccionar hoja 2'. Rango (celda (k,1), celda (k,5)). Seleccione las primeras cinco columnas de la tabla 2.
Pegue enlace: = Verdadero. .
k = k 1'El número de filas en la tabla 2 aumenta
Terminará si
Entonces
Aplicar CutCopyMode = False". para salir del modo copiar. Pegar" y las siguientes declaraciones son declaraciones auxiliares que se pueden eliminar.
Celda (1, 1). Seleccione el número total de filas que deben ingresarse. Espero que así sea. será útil para usted.