Cómo fusionar varias hojas de trabajo en una usando Excel
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.