使用 AIGC ，ChatGPT 快速合并Excel工作薄

职场数据处理，数据分析汇报与统计的过程中，经常会遇到这样的一个问题那就是需要统计的数据源在多个文件中，多个工作薄中，如果要进行数据处理，汇总的时候会很不方便

例如：

如果要汇总6个月的数据可能就得需要手动复制了。

再或者用其它方法来进行数据合并。

例如我们可以使用非常高效的VBA来实现文件合并操作。

是不是在想，我不会写VBA，我也不会语法编辑。

怎么办呢？

可以让ChatGPT来帮我们写出代码。

ChatGPT发送Prompt：（请写个VBA代码，将路径为"C:\Users\EDY\Documents\Excel"的文件夹中的所有Excel工作簿合并为一个新的工作簿，合并的工作簿也要在该文件夹里，新工作簿的每个工作表保留原工作簿对应的文件名）

vbnet 复制代码

Sub MergeWorkbooks()
    Dim Path As String, Filename As String
    Dim wb As Workbook, NewBook As Workbook
    Dim ws As Worksheet

    '设置文件夹路径
    Path = "C:\Users\EDY\Documents\Excel\"
    '创建新工作簿
    Set NewBook = Workbooks.Add(xlWBATWorksheet)

    '循环遍历文件夹中的所有工作簿
    Filename = Dir(Path & "*.xls*")
    Do While Filename <> ""
        '打开工作簿
        Set wb = Workbooks.Open(Filename:=Path & Filename)
        '将每个工作表复制到新工作簿
        For Each ws In wb.Worksheets
            ws.Copy After:=NewBook.Sheets(NewBook.Sheets.Count)
            '重命名工作表为原工作簿的文件名
            ActiveSheet.Name = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
        Next ws
        '关闭打开的工作簿
        wb.Close SaveChanges:=False
        '查找下一个工作簿
        Filename = Dir()
    Loop

    '保存新工作簿
    NewBook.SaveAs Filename:=Path & "MergedWorkbook.xlsx", FileFormat:=xlOpenXMLWorkbook
End Sub

接下来我们来验证这段代码做文件合并。

新建一个Excel文件，打开VBA编辑。

接下来将代码粘贴进来。

接下来我们可以在Sheet1将6个Sheet页的数据查找过去。

在Sheet1中我们先做好表格标题如下：

接下来我们使用Vlookup+indirect组合将不同的工作表的数据查找过来。

=VLOOKUP($A2,INDIRECT(B$1&"!A:C"),3,0)

得到完整结果。

AIGC ChatGPT 职场案例
AI 绘画与短视频制作
PowerBI 商业智能 68集
数据库Mysql 8.0 54集
数据库Oracle 21C 142集
Office 2021实战应用
Python 数据分析实战，
ETL Informatica 数据仓库案例实战
Excel 2021实操 100集，
Excel 2021函数大全 80集
Excel 2021高级图表应用89集，
Excel 2021大屏可视化制作 56集
Excel 2021实用技巧300集
PPT 2021 商业汇报实战应用69集
数据分析可视化Tableau 80集
数据可视化FineReport 50集
送你各类文档模板PPT，表格，大屏可视化超过5000+模板
VX: sz1580998 一对一咨询答疑
案例实战 http://t.csdn.cn/zBytu