excel有多个工作表怎么快速合并到某一张表（excel多个工作表数据快速合并到一个工作表方法）

目前应该是有很多小伙伴对于excel多个工作表数据快速合并到一个工作表方法方面的信息比较感兴趣，现在小编就收集了一些与excel多个工作表数据快速合并到一个工作表方法相关的信息来分享给大家，感兴趣的小伙伴可以接着往下看，希望会帮助到你哦

利用VBA将数据区域不定的多个工作表数据快速合并到一个工作表方法，接下来将为大家简单介绍一下。材料/工具ExcelVAB方法1假设分别有工作表1、2、3。2将鼠标指针移至“Sheet1”，右键选择“查看源代码”，即可打开VBE编辑器，3在工程窗口下的Microsoft Excel对象右键“插入”，点击“模块”，新建一个模块1。4输入如图所示的代码。

OptionExplicit

Subhbgzb()

DimshAsWorksheet,flagAsBoolean,iAsInteger,hrowAsInteger,hrowcAsInteger

flag=False

Fori=1ToSheets.Count

IfSheets(i).Name="合并数据"Thenflag=True

Next

Ifflag=FalseThen

Setsh=Worksheets.Add

sh.Name="合并数据"

Sheets("合并数据").Moveafter:=Sheets(Sheets.Count)

EndIf

Fori=1ToSheets.Count

IfSheets(i).Name<>"合并数据"Then

hrow=Sheets("合并数据").UsedRange.Row

hrowc=Sheets("合并数据").UsedRange.Rows.Count

If hrowc = 1 Then

Sheets(i).UsedRange.CopySheets("合并数据").Cells(hrow,1).End(xlUp)

Else

Sheets(i).UsedRange.CopySheets("合并数据").Cells(hrow+hrowc-1,1). Offset(1,0)

EndIf

EndIf

Nexti

EndSub

本文到此结束，希望对大家有所帮助。