您的位置:首页>要闻 >内容

多个excel工作表合并成一个excel表的方法(excel多个工作表数据快速合并到一个工作表方法)

2022-05-31 16:47:16来源:
导读今天小风给大家收集了一些多个excel工作表合并成一个excel表的方法,excel多个工作表数据快速合并到一个工作表方法方面的信息来分享给大家

今天小风给大家收集了一些多个excel工作表合并成一个excel表的方法,excel多个工作表数据快速合并到一个工作表方法方面的信息来分享给大家,如果大家感兴趣的话就接着看下面得文章吧

1、利用VBA将数据区域不定的多个工作表数据快速合并到一个工作表方法,接下来将为大家简单介绍一下。材料/工具ExcelVAB方法

1、1、假设分别有工作表1、、2、、3、。

1、2、将鼠标指针移至“Sheet1、”,右键选择“查看源代码”,即可打开VBE编辑器,

1、3、在工程窗口下的Microsoft Excel对象右键“插入”,点击“模块”,新建一个模块1、。

1、4、输入如图所示的代码。

1、

2、OptionExplicit

3、Subhbgzb()

4、DimshAsWorksheet,flagAsBoolean,iAsInteger,hrowAsInteger,hrowcAsInteger

5、flag=False

6、Fori=1、ToSheets.Count

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

8、Next

9、Ifflag=FalseThen

10、Setsh=Worksheets.Add

11、sh.Name="合并数据"

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

13、EndIf

14、Fori=1、ToSheets.Count

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

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

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

18、If hrowc = 1、 Then

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

20、Else

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

22、EndIf

23、EndIf

24、Nexti

25、EndSub

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

免责声明:本文由用户上传,如有侵权请联系删除!

猜你喜欢

最新文章