excel多个工作表数据快速合并到一个工作表方法。

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

excel多个工作表数据快速合并到一个工作表方法。

材料/工具

Excel

VAB

方法

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

excel多个工作表数据快速合并到一个工作表方法。

将鼠标指针移至“Shee龙t1”,右键选择“查看源代码”,即可打开VBE编辑器,

excel多个工作表数据快速合并到一个工作表方法。

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

excel多个工作表数据快速合并到一个工作表方法。

输入如图所示的代码。

 

Option Explicit

 

Sub hbgzb()

 

Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer

 

flag = False

 

For i = 1 To Sheets.Count

 

If Sheets(i).Name = "合并数据" Then flag = True

 

Next

 

If flag = False Then

 

Set sh = Worksheets.Add

 

sh.Name = "合并数据"

 

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

 

End If

 

For i = 1 To Sheets.Count

 

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

 

hrow = Sheets("合并数据").UsedRa风传山加怀婷虽nge.Row

 

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

 

If hrowc = 1 Then

 

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

 

Else

 

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

 

End If

 

End If

 

Next i

 

End Sub

 

excel多个工作表数据快速合并到一个工作表方法。

按ALT+F8打开宏对话框窗口,单击执行hbgzb宏。

excel多个工作表数据快速合并到一个工作表方法。

即可实现excel多个工作表数据快速合并到一个工作表。

excel多个工作表数据快速合并到一个工作表方法。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 951076433@qq.com 举报,一经查实,本站将立刻删除。如若转载,请注明出处:https://www.xiaomafuwu.com/115385.html

(0)
代码小二的头像代码小二

相关推荐