Cómo extraer datos de múltiples hojas de cálculo

La extracción de datos de una hoja de cálculo de Excel convierte el contenido de las celdas de las hojas en variables. El libro puede luego pegar los valores en una hoja nueva, exportarlos a un documento o realizar cálculos en ellos. Por ejemplo, un libro de trabajo puede contener una serie de hojas, cada una de las cuales cubre un período de ventas de su empresa. Una macro de Visual Basic puede abrir cada hoja a su vez y copiar el contenido de una celda específica, compilando una lista de los totales de ventas de cada hoja.

1.

Presione "Alt-F11" para abrir el editor de Visual Basic de Excel.

2.

Escriba el siguiente código para abrir un bloque de macro:

Sub mcrExtractData ()

3.

Agregue la siguiente línea para crear una matriz de valores:

Válido extraído Valor (1 a 10) como largo

Reemplace "1" y "10" con la primera y la última hoja cuyos datos desea extraer. Por ejemplo, para extraer datos de las hojas 3 a 12, use la línea:

Válido extraído Valor (3 a 12) como largo

4.

Agregue la siguiente línea para declarar una variable que utilizará el bucle de la macro:

Dim i como entero

5.

Agregue la siguiente línea para abrir un bucle For-Next:

Para i = 1 a 10

Reemplace "1" y "10" con la primera y la última hoja cuyos datos desea extraer. Por ejemplo, para extraer datos de las hojas 3 a 12, use la línea:

Para i = 3 a 12

6.

Agrega la siguiente línea para activar la primera hoja:

Hoja (i) .Activar

7.

Agregue la siguiente línea para extraer datos de la primera hoja:

Valor de extracción (i) = Rango ("C1"). Valor

Reemplace "C1" con la celda cuyos datos desea extraer. Por ejemplo, para extraer el valor de la celda E10, use la línea:

Valor de extracción (i) = Rango ("E10"). Valor

8.

Agregue la siguiente línea para cerrar el bucle For-Next:

Siguiente yo

9.

Agregue la siguiente línea para terminar la macro:

End Sub

10.

Presiona la tecla "F5" para ejecutar la macro.