Red de conocimiento informático - Conocimiento de Internet de las cosas - Combinar hojas con el mismo nombre en varios archivos de Excel en una hoja maestra

Combinar hojas con el mismo nombre en varios archivos de Excel en una hoja maestra

También es posible utilizar código VBA.

Cree un nuevo Excel, cree un botón en una de las hojas 1, 2 y 3 y copie el siguiente código en el botón. ,

En la hoja del botón que se está creando, ingrese la ruta del archivo y el nombre en la columna A, e ingrese el nombre del archivo en la columna B. Private?Sub?CommandButton2_Click()

¿Error?Reanudar?Siguiente

Application.ScreenUpdating?=?False

Application.DisplayAlerts?=?False

¿Para?i?=?1? To?Range("a65536").End (xlUp).Row

Libros de trabajo.Open?Range("a"?amp;?i)

If?Err.Number? =?4?Then MsgBox?Range(" b"?amp;?i)?amp;?"La tabla no está abierta, verifique si la ruta o el nombre de la tabla es correcto" Err.Clear Else With?Workbooks(Trim( Rango("b"?amp;?i))). Hojas de trabajo("hoja1") fila1?=?.Range("a65536").End(xlUp).Row .Range("a1:iv"?amp;? fila1).Copiar?ThisWorkbook.Worksheets("sheet1"). Range("a"?amp;?ThisWorkbook.Worksheets("sheet1").Range("a65536").End(xlUp).Row? ?1) Fin ?Con Con?Libros de trabajo(Trim(Range("b"? amp;?i))).Hojas de trabajo("sheet2") fila2?=?.Range("a65536").End(xlUp).Row .Range(" a1:iv"?amp;?row2).Copiar?ThisWorkbook .Worksheets("sheet2").Range("a"?amp;?ThisWorkbook.Worksheets("sheet2").Range("a65536").End(xlUp ).Fila?1) ¿Finalizar?Con?Libros de trabajo( Trim(Range("b"?amp;?i))).Hojas de trabajo("sheet3") fila3?=?.Range("a65536").End( xlUp).Row

.Range( "a1:iv"?amp;?row3).Copy?ThisWorkbook.Worksheets("sheet3").Range("a"?amp;?ThisWorkbook.Worksheets( "sheet3").Range("a65536").End( xlUp).Row?1)

¿Fin?Con

Fin?Si

Libros de trabajo. (Recortar(Rango("b"?amp;?i) )).Cerrar?Falso

Siguiente?i

Application.DisplayAlerts?=?True

ap

application.ScreenUpdating?=?True

Fin?Sub