職場數(shù)據(jù)處理，數(shù)據(jù)分析匯報與統(tǒng)計的過程中，經(jīng)常會遇到這樣的一個問題那就是需要統(tǒng)計的數(shù)據(jù)源在多個文件中，多個工作薄中，如果要進(jìn)行數(shù)據(jù)處理，匯總的時候會很不方便

例如：

如果要匯總6個月的數(shù)據(jù)可能就得需要手動復(fù)制了。

再或者用其它方法來進(jìn)行數(shù)據(jù)合并。

例如我們可以使用非常高效的VBA來實現(xiàn)文件合并操作。

是不是在想，我不會寫VBA，我也不會語法編輯。

怎么辦呢？

可以讓ChatGPT來幫我們寫出代碼。

ChatGPT發(fā)送Prompt：（請寫個VBA代碼，將路徑為“C:\Users\EDY\Documents\Excel”的文件夾中的所有Excel工作簿合并為一個新的工作簿，合并的工作簿也要在該文件夾里，新工作簿的每個工作表保留原工作簿對應(yīng)的文件名）

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

    '設(shè)置文件夾路徑
    Path = "C:\Users\EDY\Documents\Excel\"
    '創(chuàng)建新工作簿
    Set NewBook = Workbooks.Add(xlWBATWorksheet)

    '循環(huán)遍歷文件夾中的所有工作簿
    Filename = Dir(Path & "*.xls*")
    Do While Filename <> ""
        '打開工作簿
        Set wb = Workbooks.Open(Filename:=Path & Filename)
        '將每個工作表復(fù)制到新工作簿
        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
        '關(guān)閉打開的工作簿
        wb.Close SaveChanges:=False
        '查找下一個工作簿
        Filename = Dir()
    Loop

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

接下來我們來驗證這段代碼做文件合并。

新建一個Excel文件，打開VBA編輯。

接下來將代碼粘貼進(jìn)來。

接下來我們可以在Sheet1將6個Sheet頁的數(shù)據(jù)查找過去。

在Sheet1中我們先做好表格標(biāo)題如下：

接下來我們使用Vlookup+indirect組合將不同的工作表的數(shù)據(jù)查找過來。

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

得到完整結(jié)果。

?AIGC ChatGPT 職場案例
AI 繪畫 與 短視頻制作
PowerBI 商業(yè)智能 68集
數(shù)據(jù)庫Mysql 8.0 ?54集
數(shù)據(jù)庫Oracle 21C 142集
Office 2021實戰(zhàn)應(yīng)用
Python 數(shù)據(jù)分析實戰(zhàn)，
ETL Informatica 數(shù)據(jù)倉庫案例實戰(zhàn)
Excel 2021實操 100集，
Excel 2021函數(shù)大全 80集
Excel 2021高級圖表應(yīng)用89集，
Excel 2021大屏可視化制作 56集
Excel 2021實用技巧300集
PPT 2021 商業(yè)匯報實戰(zhàn)應(yīng)用69集
數(shù)據(jù)分析可視化Tableau 80集
數(shù)據(jù)可視化FineReport 50集
送你各類文檔模板PPT，表格，大屏可視化 超過5000+模板
VX: sz1580998 一對一咨詢答疑
案例實戰(zhàn) http://t.csdn.cn/zBytu

?AIGC ChatGPT 職場案例
AI 繪畫 與 短視頻制作
PowerBI 商業(yè)智能 68集
數(shù)據(jù)庫Mysql 8.0 ?54集
數(shù)據(jù)庫Oracle 21C 142集
Office 2021實戰(zhàn)應(yīng)用
Python 數(shù)據(jù)分析實戰(zhàn)，
ETL Informatica 數(shù)據(jù)倉庫案例實戰(zhàn)
Excel 2021實操 100集，
Excel 2021函數(shù)大全 80集
Excel 2021高級圖表應(yīng)用89集，
Excel 2021大屏可視化制作 56集
Excel 2021實用技巧300集
PPT 2021 商業(yè)匯報實戰(zhàn)應(yīng)用69集
數(shù)據(jù)分析可視化Tableau 80集
數(shù)據(jù)可視化FineReport 50集
送你各類文檔模板PPT，表格，大屏可視化 超過5000+模板
VX: sz1580998 一對一咨詢答疑
案例實戰(zhàn) http://t.csdn.cn/zBytu

文章來源地址http://www.zghlxwxcb.cn/news/detail-754207.html

到了這里，關(guān)于使用 AIGC ，ChatGPT 快速合并Excel工作薄的文章就介紹完了。如果您還想了解更多內(nèi)容，請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！