¿Cómo extraer toda la fila de datos usando VBA en EXCEL?

Consulta de número de subfactura()

' Desactivar la actualización de pantalla.

Dim j&,k&i&

J = table("información de datos"). [A65536]. fin(3). Fila 'Calcula el número total de filas en la tabla de información de datos.

M = Zhang ("Información del producto bajo el mismo número de factura"). [A65536]. fin(3). Fila 'Calcule el número total de filas bajo el mismo número de factura en los datos de la tabla de información del producto.

Tabla ("Información del producto bajo el mismo número de factura"). línea("3:"&M+1). Eliminar 'Eliminar la antepenúltima fila de datos bajo el mismo número de factura en la tabla de información del producto.

El contador K se inicializa a 2. Suponiendo que hay 2 filas en el encabezado, la ubicación de la copia extraída de los datos comienza desde la tercera fila.

For i = 2 to j 'i recorre desde la segunda fila hasta la última fila de la tabla de información de datos.

If table("información de datos"). Celda(I, "x") = Hojas("Información del producto bajo el mismo número de factura"). Rango ("B1") TSi el valor en la primera fila y columna x de la tabla de información de datos es el mismo que los datos en la celda B1 de la tabla de información del producto bajo el mismo número de factura.

K = k+1’El valor del contador K+1.

Formulario("Información"). Fila(I). Papel de fotocopia (“Información del producto bajo el mismo número de factura”). Las filas Range("a" & k)' se copian en las celdas A & k donde k es el valor actual del contador, por ejemplo, k=3 es la celda A3.

Terminará si...

Entonces

[B1]. Seleccione

Aplicar. 'screenupdating = true 'Reanudar la actualización de la pantalla.

Conector final