利用VBA代码合并多个表格中指定范围的Excel数据

步骤1：自定义功能区中勾选“开发工具”

步骤2：插入命令按钮控件

步骤3：复制以下代码。

修改文件格式xls或xlsx（ yuan_name = Dir(path & "\" & "*.xls")

修改复制范围（ wb.Sheets(1).Range("A5", "P5").Copy）

Private Sub CommandButton1_Click()Dim path, yuan_name  '定义路径名，被合并表名称Dim wb As Workbookpath = ThisWorkbook.path '指定路径为合并新表所在路径yuan_name = Dir(path & "\" & "*.xls") '从该文件夹内遍历所有要合并的表格Do While yuan_name <> ""  '遍历的表格名不为空就进入循环Set wb = Workbooks.Open(path & "\" & yuan_name) '打开遍历到的表格wb.Sheets(1).Range("A5", "P5").Copy  '复制“A5:P5”范围单元格！注意修改此部分内容ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues  '从a列最后一个有数据的单元格后的空格开始粘贴wb.Close (False) '复制粘贴完成后关闭被合并的表yuan_name = Dir  '继续遍历LoopEnd Sub

步骤4：保存代码，单击按钮进行复制合并。

参考链接：https://jingyan.baidu.com/article/454316ab23dfcef7a7c03a12.html

参考源代码：

Private Sub CommandButton1_Click()Dim path, yuan_name  '定义路径名，被合并表名称Dim wb As Workbook  path = ThisWorkbook.path '指定路径为合并新表所在路径yuan_name = Dir(path & "\" & "*.xlsx") '从该文件夹内遍历所有要合并的表格Do While yuan_name <> ""  '遍历的表格名不为空就进入循环Set wb = Workbooks.Open(path & "\" & yuan_name) '打开遍历到的表格wb.Sheets(1).Range("a2", wb.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell)).Copy  '从a2开始到已用区域最后一个单元格的范围全部复制ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues  '从a列最后一个有数据的单元格后的空格开始粘贴wb.Close (False) '复制粘贴完成后关闭被合并的表yuan_name = Dir  '继续遍历LoopEnd Sub

利用VBA代码合并多个表格中指定范围的Excel数据相关推荐

怎么一次性将Excel表格中指定文本整行数据删除
今天跟跟大家分享一下怎么一次性将Excel表格中指定文本整行数据删除 1.如下图我们想要快速将汇总行数据整行删除掉 2.首先我们点击表格任意一单元格,同时按下Ctrl+A全选表格区域 3.然后点击下图 ...
利用VBA代码合并多个Excel表格
步骤1:将待合并表格放入同一文件夹步骤2:在文件件中新建一个表格步骤3:在新表格中右击"sheet1"--"查询代码" 步骤4:输入上述代码,并运行子程序. ...
matlab表格中的数画图,excel数据表格画图-如何利用matlab根据excel表格里面的数据画图...
如何利用matlab根据excel表格里面的数据画图方法/步骤 1,在excel中输入制图表所需要的数据. 2,选择数据(选择不连续的数据可以按住"ctrl"在选择就可以了.还有 ...
word vba 转换html,快速合并文本到Word – 利用VBA代码
为了提高录入的效率,同事分别安排下属录入不同的文本,并以数字序号进行命名,最后再在Word中将这些文本文档合并起来.常规的方法是切换到"插入"选项卡,在"文本" ...
oracle中修改多个字段默认值_利用VBA代码在已有的数据表中删除、添加、修改字段...
大家好,今日继续给大家讲解VBA数据库解决方案的第21讲,如何利用VBA代码在已有的数据表中删除,添加,修改字段.这个内容是操作数据库的一项必修的内容,还望大家在实际工作中多利用,所以这节的知识,对于 ...
python批量生成word报告_python自动生成word报告 | 如何将现有的数据利用python 填入word的表格中？...
关于python连接SQL server数据库的问题? 你把完整的连接代码贴一下如何将现有的数据利用python 填入word的表格中? VB,VBA我会,py不会哦 DB2教程推荐,新手想学习这个 ...
python操作word填表_#如何将现有的数据利用python 填入word的表格中？#
如何让Word表格中的数据自动填入到Excel表格中你好在插入对象中,建立一个数据源怎么把excel中的数据批量导入到word中的表格中 1.首先打开excel文件,随意复制文件一块区域. 2. ...
如何利用python将excel表格中筛选出来的每一份数据各自另存为新的excel文件？
如何利用python将excel表格中筛选出来的每一份数据各自另存为新的excel文件? 1.问题描述 2.解决过程 2.1 问题分析: 2.2 解决思路 3.运行结果 1.问题描述最近在处理一堆工 ...
【Python数据分析】利用Python删除EXCEL表格中指定的列数据或行数据
如何利用Python删除EXCEL表格中指定的列数据?今天与大家一起分享一下DataFrame对象的drop()函数,drop()函数可根据标签删除EXCEL表格中的列数据或行数据,其语法格式如下: ...

利用VBA代码合并多个表格中指定范围的Excel数据

利用VBA代码合并多个表格中指定范围的Excel数据相关推荐

最新文章

热门文章