| VBA将excel多个工作表数据合并到一个工作表方法 | 您所在的位置：网站首页 › vba合并多个excel文件代码 › VBA将excel多个工作表数据合并到一个工作表方法 |
VBA将excel多个工作表数据合并到一个工作表方法
|
VBA将excel多个工作表数据合并到一个工作表方法
： ：办公软件 2021-11-13 17:11:24
利用VBA将数据区域不定的多个工作表数据快速合并到一个工作表方法。有需要的朋友可以跟着教程一起来学习！方法/步骤分别有工作表1、2、3数据区域：按ALT+F11打开VBE编辑器，在工程窗口下的Microsoft Excel对象右键-插入-模块，新建一个模块1。输入如下代码：代码如下:Option ExplicitSub hbgzb()Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer flag = FalseFor i = 1 To Sheets.CountIf Sheets(i).Name = "合并数据" Then flag = TrueNextIf flag = False ThenSet sh = Worksheets.Addsh.Name = "合并数据"Sheets("合并数据").Move after:=Sheets(Sheets.Count)End IfFor i = 1 To Sheets.CountIf Sheets(i).Name "合并数据" Thenhrow = Sheets("合并数据").UsedRange.Rowhrowc = Sheets("合并数据").UsedRange.Rows.CountIf hrowc = 1 ThenSheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp)ElseSheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)End IfEnd IfNext iEnd Sub按ALT+F8打开宏对话框窗口，鼠标单击执行hbgzb宏。实现效果：注意事项本段VBA代码由于将编辑过的区域作为源数据区域，顾无论该数据源有无数据，只要曾经编辑过皆做为源数据源，做拷贝处理。以上就是VBA将excel多个工作表数据合并到一个工作表方法介绍，希望能对大家有所帮助！ TAG： excel,工作表数据 相关阅读01-07使用python读取多个excel自动生成甘特图 01-06录入mac并写入excel 01-06excel表格合并到一张excel 01-06用python实现excle转换dbc格式Excel2Dbc 01-06从EXCEL中读取数据修改统计 01-06读取Excel报表内容 01-04python采集数据并保存到excel文件 01-03PyXLL库Python与EXCEL完美结合pyxll-5.0. 01-03Python自动化办公Pandas玩转Excel源代码 01-03Python实例操作excel文件 最新推荐11-28excel反转条形图的分类次序设置方法 11-28excel不常见的高级使用技巧 11-28Excel设置一次打开2张工作表，工作表数量的修改方法 11-28excel选项按钮带图表制作方法 11-28excel中sqrtpi函数有什么作用 11-28excel自动筛选功能快速删除空行方法 11-28excel使用index嵌套match函数 11-28excel中lcm函数最小公倍数值的教程 11-28excel制作小区的缴费通知单教程 11-28excel把工资表做成工资条 |
【本文地址】