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

Hqq_CSDN

已于 2022-09-01 10:29:26 修改

阅读量3.8k

点赞数

分类专栏：办公文章标签：编辑器

于 2022-08-30 15:15:00 首次发布

本文链接：https://blog.csdn.net/Hqq_CSDN/article/details/126604502

版权

步骤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 Workbook

    path = 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.She