Red de conocimiento informático - Aprendizaje de programación - Cómo fusionar varias hojas de trabajo en una usando Excel

Cómo fusionar varias hojas de trabajo en una usando Excel

Utilice cálculos macro de hojas de Excel para fusionar varias hojas de trabajo en una. El método es el siguiente:

Herramientas/materias primas:

Varias hojas de datos de Excel, microsoft office

Pasos:

1. Necesita colocar varias hojas de cálculo de Excel en la misma carpeta y crear un nuevo Excel en esta carpeta. Como se muestra en la figura:

2. Utilice Microsoft Excel para abrir la nueva hoja de cálculo de Excel, haga clic derecho en la hoja 1, busque "Ver código" y haga clic en. Luego ingrese a la interfaz de cálculo macro. Como se muestra en la imagen:

3. Luego copie los siguientes códigos de cálculo macro en la barra de herramientas y luego busque "Ejecutar subproceso/formulario de usuario" en "Ejecutar" encima de la barra de herramientas. Como se muestra en la figura:

Submerge todas las hojas de trabajo () de todos los libros en el directorio actual

Dim MyPath, MyName, AWbName

Dim Wb As Libro de trabajo, WbN como cadena

Dim G mientras

Dim Num mientras

Dim BOX como cadena

Application.ScreenUpdating = False .

Num = 0

Hacer mientras MiNombre lt;gt; ""

Si MiNombre lt;gt; Entonces

Establecer Wb; = Workbooks.Open(MyPath & "\" & MyName)

Num = Num 1

Con Workbooks(1).ActiveSheet

.Cells( .Range ("B65536").End( xlUp).Fila 2, 1) = Izquierda(MiNombre, Len(MiNombre) - 4)

Para G = 1 a hojas.

Wb .Sheet(G).UsedRange.xlUp).Fila 1, 1)

Siguiente paso

WbN = WbN amp;

Wb.Close False

Terminar con

Finalizar si

MiNombre = Dir

Bucle

Rango("B1"). Seleccione

Application.ScreenUpdating = True

MsgBox "***Fusionó todas las hojas de trabajo en " amp Num amp ". De la siguiente manera:" Chr(13) amp; ; WbN, vbInformation, "prompt"

End Sub

4. Una vez completada la operación, espere unos 10 segundos después de que se complete la operación, es decir, después de la fusión. Cuando se complete, habrá un recordatorio, simplemente haga clic en Aceptar. Al observar los datos combinados, hay más de 5000 filas, que es el resultado de fusionar datos de 17 tablas de Excel en la misma carpeta. Los resultados se muestran en la figura.

Nota:

Kingsoft WPS no tiene función de cálculo de macros. Sólo puedes hacer esto usando Microsoft Excel.