使用excel中的VBA合并多个excel文件

需求是这样的:

在Windows下,用excel文件让多个小组填写了统计信息,现在我需要把收集的多个文件汇总到一个文件中,前三行为标题可以忽略,第四行为收集信息的列名,处理每一行数据的时候,发现某一行的第一列为空将不再复制处理本文件中下面的行。

在office的Excel中视图下面的宏中,创建一个新的宏,并命名为ConsolidateExcelFiles,

VBA 复制代码
Sub ConsolidateExcelFiles()
    Dim FolderPath As String
    Dim FileName As String
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim LastRow As Long
    Dim DestRow As Long
    Dim i As Long
    Dim fd As FileDialog
    Dim FirstFile As Boolean
    Dim HeaderRow As Long
    Dim StartRow As Long

    ' 使用文件对话框选择文件夹路径
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    fd.Title = "选择要合并的文件所在的文件夹"
    If fd.Show = -1 Then
        FolderPath = fd.SelectedItems(1) & "\"
    Else
        MsgBox "未选择文件夹,操作取消。"
        Exit Sub
    End If

    ' 询问用户列名所在的行号
    HeaderRow = Application.InputBox("请输入列名所在的行号:", Type:=1)
    If HeaderRow < 1 Then
        MsgBox "无效的行号,操作取消。"
        Exit Sub
    End If

    ' 创建一个新的工作簿用于汇总
    Set wsDest = ThisWorkbook.Sheets(1)
    DestRow = 1
    FirstFile = True

    ' 获取文件夹中的第一个文件
    FileName = Dir(FolderPath & "*.xls*")

    ' 遍历文件夹中的所有文件
    Do While FileName <> ""
        ' 打开源工作簿
        Set wbSource = Workbooks.Open(FolderPath & FileName)
        Set wsSource = wbSource.Sheets(1)

        ' 找到源工作表的最后一行
        LastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row

        ' 如果是第一个文件,复制列名
        If FirstFile Then
            wsSource.Rows(HeaderRow).Copy wsDest.Rows(DestRow)
            DestRow = DestRow + 1
            FirstFile = False
        End If

        ' 从列名行的下一行开始复制数据
        StartRow = HeaderRow + 1
        For i = StartRow To LastRow
            ' 如果第一列为空,则停止处理该文件
            If IsEmpty(wsSource.Cells(i, 1).Value) Then Exit For

            ' 复制数据到目标工作表
            wsSource.Rows(i).Copy wsDest.Rows(DestRow)
            DestRow = DestRow + 1
        Next i

        ' 关闭源工作簿
        wbSource.Close SaveChanges:=False

        ' 获取下一个文件
        FileName = Dir
    Loop

    MsgBox "汇总完成!"
End Sub

这里的VBA脚本通过文件夹选择的方式来选择要合并哪个文件夹下面的Excel文件

然后输入收集信息表中列名所在的行数:

最后合并的文件中只会记录一行列名,后面其他重复的列名将会被忽略掉:

如果需要经常使用,可以将此包含宏的Excel保存为一个xlsm格式的文件,方便后续的使用。

相关推荐
CodeCraft Studio5 小时前
Excel处理控件Aspose.Cells教程:使用 Python 将 Pandas DataFrame 转换为 Excel
python·json·excel·pandas·csv·aspose·dataframe
星空的资源小屋9 小时前
PPTist,一个完全免费的 AI 生成 PPT 在线网站
人工智能·python·电脑·excel
开开心心_Every9 小时前
免费语音合成工具:66种音色随心选
人工智能·面试·java-ee·计算机外设·电脑·maven·excel
偷心伊普西隆1 天前
EXCEL VBA 清空Excel工作表(Sheet)的方法
microsoft·excel
Coding_Doggy1 天前
苍穹外卖Day12 | Apache POI、导出Excel报表、HttpServletResponse、工作台
excel
l1t2 天前
张泽鹏先生手搓的纯ANSI处理UTF-8与美团龙猫调用expat库读取Excel xml对比测试
xml·人工智能·excel·utf8·expat
Source.Liu2 天前
【Python自动化】 21 Pandas Excel 操作完整指南
python·excel·pandas
会飞的小菠菜3 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件
Access开发易登软件3 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表3 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量