Cómo fusionar el contenido de dos tablas de Excel en una sola tabla

1. Cree una nueva carpeta, coloque las tablas que se fusionarán en ella, cree una nueva tabla, ábrala con Excel, haga clic derecho en Hoja1

2. WPS no)

3. Copie el siguiente código en el cuadro de texto:

Submerge todos los libros en el directorio actual AllWorksheets()

Dim MyPath. , MiNombre, AWbName

Atenuar Wb como libro de trabajo, WbN como cadena

Atenuar G mientras

Atenuar Núm. mientras largo

Atenuar BOX Como cadena

Application.ScreenUpdating = False. ScreenUpdating = False

MiRuta = ActiveWorkbook.Path

MiNombre = Dir(MiRuta & "\" & "*.xls")

AWbName = ActiveWorkbook .Nombre

Número tan largo

BOX como cadena

Aplicación.

Num = 0

Hacer mientras MiNombre lt;gt; ""

Si MiNombre lt;gt; Entonces

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

Num = Num 1

Con Workbooks(1).Sheets(G).UsedRange.Copy .Cells( .Range ("B65536").End(xlUp).Fila 1, 1)

Siguiente

WbN = WbN amp; p>Wb. Cerrar Falso

Finalizar con

Finalizar si

Mi nombre = Dir

Bucle

Rango( "B1" ).Select

Application.ScreenUpdating = True

MsgBox "***Fusionó todas las hojas de trabajo en las hojas " amp; amp; WbN, vbInformation, "Prompt"

End Sub

4. Después de hacer clic en Ejecutar, después de un período de tiempo (dependiendo del tamaño y la cantidad de tablas), se realiza la combinación. terminado.