Combine fácilmente varias hojas de trabajo / libros de trabajo en una sola hoja de trabajo / libro de trabajo

Con el siguiente código VBA, puede crear fácilmente una lista a partir de las celdas especificadas en varias hojas de trabajo. Puede hacer lo siguiente:

Paso 1: Seleccione la celda especificada desde la que creará su lista. En nuestro caso, seleccionamos la celda E6.

Paso 2: Prensa otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en recuadro > Móduloy luego pegue el siguiente código en la ventana del módulo.

VBA: cree una lista a partir de las mismas celdas en varias hojas

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Paso 3: Prensa F5 o haga clic en el Ejecutar botón para ejecutar este VBA.

Luego, todos los valores de la celda especificada en todas las hojas de trabajo se copian en una nueva hoja de trabajo llamada KutoolsforExcel. Ver captura de pantalla:

Este VBA llenará la lista en una nueva hoja de trabajo, y los valores de la lista son estáticos y no cambiarán con los valores originales.

Sin embargo, a veces es posible que desee completar la lista en un rango especificado y requerir que los valores de la lista siempre se correspondan con los valores originales en las celdas especificadas todo el tiempo. Para satisfacer estas necesidades, debe probar el siguiente método.

Este método introducirá Kutools for Excel, Refiera dinámicamente a las hojas de trabajo utilidad para crear una lista dinámica a partir de las mismas celdas en varias hojas de trabajo.

Paso 1: seleccione el rango donde completará la lista dinámica y haga clic en el Kutools > Más > Refiera dinámicamente a las hojas de trabajo.

Paso 2: En el cuadro de diálogo Abrir Referencias de hojas de trabajo de relleno,

(1) Haga clic en el Completar pedido cuadro y seleccione un tipo de relleno de la lista desplegable. En nuestro caso, seleccionamos Llenar verticalmente celda tras celda;

(2) En el Fórmula de relleno cuadro, especifique la dirección de celda desde la que creará una lista dinámica, y luego haga clic en el Bloquear .  para bloquear la fórmula.

(3) Haga clic en el Rango de llenado

Ahora verá que los valores en las celdas especificadas en todas las hojas de trabajo se completan en el rango especificado como se muestra a continuación:

Cuando los valores originales cambiaron, los valores correspondientes en esta lista especificada se cambiarán automáticamente.

¿Cómo autocompletar la misma celda desde diferentes hojas a una hoja en Excel?