Colección de citas famosas - Slogan de motivación - Descripción del código Excel VB 2003 para fusionar rápidamente varias hojas de cálculo de Excel

Descripción del código Excel VB 2003 para fusionar rápidamente varias hojas de cálculo de Excel

Sub fusiona todas las hojas de trabajo en el libro de trabajo actual ()

Aplicar. ScreenUpdating = False

Para j = 1 en la pantalla. Cuente desde la primera mesa hasta la última mesa.

Si hoja(j). Nombre<>ActiveSheet. "Nombre Entonces" si el nombre de la tabla no es igual a la hoja de trabajo actual.

X = rango("a65536"). final (xlup). fila+1 'La primera fila en blanco en la hoja de trabajo * * * actual.

Hojas(j). Ámbito de uso. copycells (x, 1)' Pegue el área útil de la I-ésima hoja de trabajo comenzando desde la primera línea en blanco.

Terminará si...

Entonces

rango(" B1 "). Seleccione

Aplicar. ScreenUpdating = True

MsgBox "¡Todas las hojas de trabajo del libro actual se han fusionado!", vbInformation, "Preguntar"

Conector final

No necesito Explica el resto.