excel vba 将多张数据表的内容合并到一张数据表

HappyDelano

已于 2023-08-21 11:57:14 修改

阅读量3.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： excel 前端算法

于 2023-08-21 11:51:16 首次发布

本文链接：https://blog.youkuaiyun.com/liu_zhen_wei/article/details/132405400

本文介绍如何使用VBA将一个Excel文件中样式相同的所有数据表内容合并到一张新的数据表中，提供了具体的VBA实现代码，用户可以下载代码文件后在Excel中导入运行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

功能描述：

一个Excel文件有很多个样式相同的数据表，

需要将多张数据表的内容合并到一张数据表里。

vba实现代码如下：

Attribute VB_Name = "NewMacros"
Option Explicit
Public Const Const_OutSheetName As String = "VBA汇总"
Public Const Const_PZSheetName As String = "配置"

Sub 汇总()
Attribute 汇总.VB_Description = "宏由 LiuZW 录制，时间: 2023/08/19"
Attribute 汇总.VB_ProcData.VB_Invoke_Func = " 14"
'
' 汇总 Macro
' 宏由 LiuZW 录制，时间: 2023/08/19
'

'

    Dim i, j, k As Integer
        
    
    '创建“配置”数据表并提示用户填写配置
    Dim isExistPZ As Boolean
    isExistPZ = False
    For i = 1 To Worksheets.Count
        If Worksheets(i).name = Const_PZSheetName Then
            isExistPZ = True
            Exit For
        End If
    Next
    
    '定义表示要复制的区域的变量
    Dim mRow1, mColumn1, mRow2, mColumn2 As Integer
        
    If isExistPZ Then
        mRow1 = Application.Worksheets(Const_PZSheetName).Range("B2").Value
        mRow2 = Application.Worksheets(Const_PZSheetName).Range("B3").Value
        mColu