Cómo utilizar la función de Excel para copiar filas automáticamente con condiciones específicas

Puedes utilizar la siguiente macro. Si tienes alguna pregunta, envíame un mensaje privado.

Sub ZNpaste()

Dim mCol, mRow, tarRow

startCol = 1 'Número de columna inicial de datos originales

endCol = 5 'Número de columna final de datos originales

startRow = 1 'Número de fila inicial de datos originales

endRow = 5 'Número de fila final de datos originales

tarRow = 1 'Número de fila inicial del área de copia

tarCol = 6 'Número de columna inicial del área de copia

mCondition = 6 'Condición coincidente, como igual a 6

For mRow = startRow To endRow Paso 1

For mCol = startCol To endCol Paso 1

Si Celdas (mRow, mCol) = mCondición Entonces

Rango(Cells(mRow, startRow).Address & ":" & Cells(mRow, endRow).Address).Select

Selección.Copiar

Celdas(tarRow, tarCol).Seleccionar

ActiveSheet.Paste

tarRow = tarRow + 1

Salir Para

Finalizar si

Siguiente mCol

Siguiente mRow

Fin Sub