¿Cómo extraigo celdas de varias hojas de cálculo, todas con el mismo formato, en un nuevo archivo maestro?

Question

Tengo 300 archivos de Excel, cada uno con exactamente el mismo formato: 4 hojas de trabajo en cada archivo con los mismos encabezados de columna/fila. Estoy tratando de extraer información de celdas seleccionadas de cada una de estas 4 hojas de trabajo (por ejemplo, de la celda D26 en la hoja de trabajo A, de la celda D62 en la hoja de trabajo B, etc.) de los 300 archivos de Excel y colocar esos datos en un nuevo archivo maestro de Excel. que contiene la información de cada uno de los 300 archivos de Excel. es posible?

Answer 1

Hay un código realmente bueno publicado.aquíeso debería hacer lo que quieras con algunos ajustes.

gordon

Será necesario realizar algunos cambios, lo cual está muy bien comentado. Estas filas obtienen todos los datos de la columna A del libro de trabajo y los copian en la hoja maestra.

LR = Range("A" & Rows.Count).End(xlUp).Row  'Find last row
Range("A1:A" & LR).EntireRow.Copy .Range("A" & NR)

En su lugar, deberá recorrer las hojas de trabajo y establecer los rangos que desea copiar con algo como esto.

wbData.sheets(1).range("A2:A26").copia .Range("A" y NR)
NR = .Range("A" & .Rows.Count).End(xlUp).Fila + 1
wbData.sheets(2).range("A2:A62").copia .Range("A" y NR)
NR = .Range("A" & .Rows.Count).End(xlUp).Fila + 1
...