Cómo utilizar VBA para fusionar rápidamente datos de varias hojas de cálculo de Excel en una sola (¿extracción de datos entre hojas de Excel?)

Utilice VBA para fusionar rápidamente datos de varias hojas de trabajo con áreas de datos variables en una sola hoja de trabajo. ¡Los amigos necesitados pueden seguir el tutorial y aprender juntos!

Métodos/Pasos

Las áreas de datos de las hojas de trabajo 1, 2 y 3 se muestran a continuación:

Presione ALT F11 para abrir el editor VBE y en el proyecto Haga clic derecho en el objeto de Microsoft Excel debajo de la ventana Insertar módulo y cree un nuevo módulo 1.

Introduce el siguiente código:

Copia el código

El código es el siguiente:

OptionExplicit

Subhbgzb

DimshAsWorksheet, flagAsBoolean, iAsInteger, hrowAsInteger, hrowcAsInteger

flag=False

Fori=1ToSheets.Count

IfSheets.Name= Fusionar datosThenflag=True

Siguiente

Ifflag=FalseThen

Setsh=Worksheets.Add

sh.Name=Fusionar datos

Sheets.Moveafter:=Sheets

EndIf

Fori=1ToSheets.Count

IfSheets.NameMerge dataThen

hrow= Hojas.UsedRange.Row

hrowc=Sheets.UsedRange.Rows.Count

Ifhrowc=1Entonces

Sheets.UsedRange.CopySheets.Cells.End

Else

Sheets.UsedRange.CopySheets.Cells.Offset

EndIf

EndIf

Siguiente

EndSub

Presione ALT F8 para abrir la ventana de diálogo de macro y haga clic para ejecutar la macro hbgzb.

Logre el efecto como se muestra en la figura:

Notas

Este código VBA utiliza el área editada como el área de datos de origen, independientemente de la fuente de datos. Ya sea que haya datos o no, siempre que se hayan editado, se utilizarán como fuente de datos y se copiarán.

Lo anterior es una introducción a cómo fusionar rápidamente varios datos de hojas de cálculo de Excel en una sola hoja de cálculo usando VBA. ¡Espero que sea útil para todos!