【原】DeepSeek來襲！AI技術顛覆傳統Excel處理，自動合并12個月工資表

面對繁瑣的數據處理任務，如合并多個工作簿中的工作表，傳統的Excel操作方式顯得力不從心。此時，DeepSeek，一款基于AI技術的Excel處理工具，以其強大的自動化功能，徹底顛覆了我們對Excel處理的傳統認知。

想了解更多精彩內容，快來關注Excel函數表姐

01DeepSeek來襲：AI技術重塑Excel處理

DeepSeek，憑借其先進的AI技術，為Excel用戶提供了：前所未有的自動化處理體驗。它不僅能夠快速識別、分析和處理數據，還能自動生成相應的VBA代碼，實現復雜的數據處理任務。

編輯搜圖

請點擊輸入圖片描述（最多18字）

這種智能化的處理方式，不僅極大地提升了工作效率，還降低了操作難度，讓即便是Excel新手也能輕松應對各種數據處理挑戰。

自動合并工資表：DeepSeek的實戰應用

以合并12個月的工資表為例，DeepSeek展現了其強大的自動化處理能力。

假設在一個文件夾中，有12個月的工資表文件，每個工作簿內包含1~N個地市的工資表。我們的任務是從所有月份文件中，把鄭州的工資表，合并到一個新工作簿中。

編輯搜圖

請點擊輸入圖片描述（最多18字）

在DeepSeek的幫助下，這一任務變得異常簡單。只需在工具欄中，點擊“合并工作表”，然后選取要合并的12個月文件，輸入要合并的工作表名稱（如“鄭州”），點擊確定，很快便能完成合并。

編輯搜圖

請點擊輸入圖片描述（最多18字）

如果需要合并多個地區，比如鄭州和上海，只需在輸入框中，用逗號連接即可。這種一鍵式的操作方式，不僅簡化了合并流程，還大大提高了合并的準確性和效率。

編輯搜圖

請點擊輸入圖片描述（最多18字）

以往需要手動打開每個工作簿，復制粘貼相應的工作表，再逐一重命名的工作，現在只需幾秒鐘便能輕松完成。

02從0開始：制作自己的合并功能

由此可見，DeepSeek提供了強大的自動化處理功能，接下來，我們就來詳細講解：如何制作自己的合并功能！↓↓↓

1. 讓DeepSeek寫代VBA代碼

編輯搜圖

請點擊輸入圖片描述（最多18字）

                   以下內容為付費內容76%                                   

以下代碼實現了：從多個Excel文件中，合并指定工作表的功能。通過禁用屏幕更新和警告提示，以及使用數組和循環結構，代碼能夠高效地處理大量數據。

Sub MergeExcelFiles()

Dim FileToOpen As Variant

Dim TargetWorkbook As Workbook

Dim SourceWorkbook As Workbook

Dim ws As Worksheet

Dim SheetNames As String

Dim SheetArray() As String

Dim i As Integer

' 禁用屏幕更新和警告提示

Application.ScreenUpdating = False

Application.DisplayAlerts = False

' 步驟1：選擇多個Excel文件 [[6]]

FileToOpen = Application.GetOpenFilename(Filefilter:="Excel Files (*.xls*), *.xls*", MultiSelect:=True)

If Not IsArray(FileToOpen) Then Exit Sub

' 步驟2：獲取要合并的工作表名稱 [[2]]

SheetNames = InputBox("請輸入要合并的工作表名稱（多個用逗號分隔），不輸入則合并所有：")

If SheetNames <> "" Then

SheetArray = Split(SheetNames, ",")

For i = LBound(SheetArray) To UBound(SheetArray)

SheetArray(i) = Trim(SheetArray(i))

Next i

End If

' 創建新工作簿 [[6]]

Set TargetWorkbook = Workbooks.Add

' 遍歷所有選中的文件 [[9]]

For Each filePath In FileToOpen

Set SourceWorkbook = Workbooks.Open(filePath)

' 獲取文件名（不帶擴展名） [[7]]

Dim FileName As String

FileName = Left(SourceWorkbook.Name, InStrRev(SourceWorkbook.Name, ".") - 1)

' 遍歷所有工作表 [[8]]

For Each ws In SourceWorkbook.Worksheets

' 檢查是否需要處理當前工作表 [[2]]

If SheetNames = "" Or IsInArray(ws.Name, SheetArray) Then

' 復制工作表到新工作簿 [[11]]

ws.Copy After:=TargetWorkbook.Sheets(TargetWorkbook.Sheets.Count)

' 重命名工作表 [[4]]

ActiveSheet.Name = FileName & "_" & ws.Name

End If

Next ws

SourceWorkbook.Close SaveChanges:=False

Next filePath

' 刪除初始空白工作表 [[4]]

Application.DisplayAlerts = False

TargetWorkbook.Sheets(1).Delete

Application.DisplayAlerts = True

' 恢復設置

Application.ScreenUpdating = True

MsgBox "合并完成！共合并 " & TargetWorkbook.Sheets.Count & " 個工作表", vbInformation

End Sub

' 輔助函數：檢查元素是否在數組中 [[2]]

Function IsInArray(valToBeFound As Variant, arr As Variant) As Boolean

Dim element As Variant

For Each element In arr

If element = valToBeFound Then

IsInArray = True

Exit Function

End If

Next element

IsInArray = False

End Function

同時，輔助函數IsInArray用于檢查元素是否在數組中，進一步提升了代碼的靈活性和準確性。

2. 制作加載宏文件

接下來，我們需要將這段VBA代碼，保存為一個加載宏文件，以便在Excel中使用。

新建一個空白工作簿。打開開發工具 - Visual Basic（WPS用戶需要先安裝WPS VBA插件）。

編輯搜圖

請點擊輸入圖片描述（最多18字）

在打開的VBE編輯器窗口中，點擊“新建” - “模塊”，然后將上面的代碼粘貼進去。將Sub后的宏名稱改為“合并工作表”。另存為加載宏文件，路徑默認即可。

編輯搜圖

請點擊輸入圖片描述（最多18字）

3. 添加自定義命令

為了讓這個合并功能更加便捷地使用，我們可以將其添加到Excel的自定義功能區中。

打開Excel，點擊“文件” - “Excel選項”。在“自定義功能區”中，點擊“新建選項卡”來創建一個新的選項卡（如果沒有的話）。

編輯搜圖

請點擊輸入圖片描述（最多18字）

在“來源”中選擇“宏”，然后選取“合并工作表”宏名稱。點擊“添加按鈕”將該宏名稱添加至新建的選項卡中。

編輯搜圖

請點擊輸入圖片描述（最多18字）

現在，在工具欄中就可以看到“合并工作表”命令了。以后，你就可以在任一個工作簿中點擊這個命令來使用合并功能了。

總結與展望

DeepSeek作為一款基于AI技術的Excel處理工具，以其強大的自動化功能，為我們帶來了前所未有的數據處理體驗。通過自動合并工資表的實戰應用，以及從0開始制作自己的合并功能的過程，我們不僅掌握了DeepSeek的使用方法，還深入了解了Excel處理的原理和技巧。