En la programación de Excel VBA, copie la tabla 1 en el archivo A al final de la tabla 1 en el archivo B. ¿Cómo escribir este programa? A y B tienen una sola mesa. Por favor vea el suplemento

Sub Copiar()

Dim wb Como Libro de Trabajo, wt Como Libro de Trabajo

Establecer wb = Libros de Trabajo("Zhang San.xlsx") 'Definir libro de trabajo

p>

wb.ActiveSheet.Range("a1:iv" & [A65536].End(xlUp).Row).Seleccione 'Seleccionar el área utilizada de la hoja de trabajo activa

Selección. Copiar 'Copiar

Workbooks.Open ("C:\Summary.xlsx") 'Abrir el libro de resumen de la unidad C

Set wt = Workbooks("Summary.xlsx") 'Definir libro de trabajo

wt.Worksheets("Sheet1").Select 'Seleccionar hoja de libro de resumen 1

r = [A65536].End(xlUp).Row + 1 'Obtener filas válidas La fila con el número máximo de fila + 1

Rango("a" & r). Seleccione 'Seleccione la celda en la columna A de la fila con el número máximo de fila + 1

Application.WindowState = xlMinimized ' Pegar

ActiveSheet.Paste

Workbooks("Summary.xlsx").Close True 'Guardar y cerrar el libro de resumen

Fin Sub