本文作者：拉登Dony

　　本文編輯：衛星醬

　　2025 年開年 AI 就火力全開，DeepSeek 橫空出世，讓所有事情都能借助 AI 重新來過。

　　而且用上 DeepSeek 之后，就再也回不去了，真的太好用，太牛了！

　　案例

　　就拿制作表格來說，大家問得最多的就是如何合并工作表。

　　市面上雖有不少工具插件能滿足這一需求，但基本都需付費。

　　而 AI 的崛起，尤其是 DeepSeek 的火爆，讓原本付費才能實現的操作變得輕而易舉。

　　就像我們下面這個表格，它記錄了不同批次的學校改造實施情況，內容極為復雜，涵蓋了不同年份和批次的數據。

　　現在需要把這些數據合并在一起，進行統計分析。

　　使用 DeepSeek 合并工作表，超級簡單，完全免費！人人都能成為 Excel 高手。

　　▋01打開 DeepSeek

　　首先，打開 DeepSeek 官網，點擊【開始對話】。

　　https://www.deepseek.com/

　　接著輸入需求，描述要盡可能清晰，最好分步驟說明。

　　以合并工作表為例，我們有兩個要求。

　　總體目標是合并工作表，具體分兩步：

　　一是確保標題不重復合并；

　　二是合并時在第一列保留原始工作表名稱。

表格中有多個工作表，現在需要按照第 1~6 行的標題，對工作表中的數據進行合并匯總。 請你寫一個 VBA 代碼完成數據的合并，要求如下： 1.1~6 行的標題，不要重復的合并標題 2.合并時，第 1 列寫入工作表的名稱，方便了解數據來源

　　注意：

　　上傳文件的時候，不一定要把所有的數據都傳上去，DeepSeek 對處理的數據行數有限制。

　　只要保留幾行數據，讓 AI 識別數據特征就行，或者截圖上傳圖片也可以。

　　隨后，AI 會針對我們的要求深入思考、梳理思路，明確方向后便會生成對應的 VBA 代碼。

　　大部分 AI 都具備編寫代碼的能力，但像 DeepSeek 這樣能寫出近乎完美、出錯率極低代碼的，著實少見。

　　代碼編寫完成后，接下來是執行代碼的步驟。

　　Sub MergeSheetsWithSource() Dim wsSummary As Worksheet Dim ws As Worksheet Dim lastRow As Long Dim summaryRow As Long Dim headerCopied As Boolean Dim i As Integer ' 創建匯總表 Set wsSummary = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) wsSummary.Name = "匯總數據" ' 初始化標志 headerCopied = False summaryRow = 1 Application.ScreenUpdating = False ' 遍歷所有工作表 For Each ws In ThisWorkbook.Sheets If ws.Name <> wsSummary.Name Then ' 跳過匯總表 ' 處理標題行（1-6 行） If Not headerCopied Then ' 添加數據來源列 ws.Rows("1:6").Copy wsSummary.Cells(summaryRow, 1).PasteSpecial xlPasteAll wsSummary.Cells(1, 1).Value = "數據來源" ' 調整列位置 wsSummary.Columns(1).Insert Shift:=xlToRight summaryRow = 7 ' 跳過標題行 headerCopied = True End If ' 處理數據行（從第 7 行開始） lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If lastRow >= 7 Then Dim dataRange As Range Set dataRange = ws.Range("A7:Y" & lastRow) ' 復制數據并添加來源 dataRange.Copy wsSummary.Cells(summaryRow, 2).PasteSpecial xlPasteValues ' 添加工作表名稱到第一列 wsSummary.Range(wsSummary.Cells(summaryRow, 1), _ wsSummary.Cells(summaryRow + dataRange.Rows.Count - 1, 1)) = ws.Name summaryRow = summaryRow + dataRange.Rows.Count End If End If Next ws ' 格式整理 With wsSummary .Columns(1).ColumnWidth = 20 .Columns(2).ColumnWidth = 15 .Rows("1:6").Font.Bold = True .Cells(1, 1).EntireRow.Insert ' 添加標題分隔行 End With Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "數據合并完成！共合并 " & summaryRow - 7 & " 行數據", vbInformation End Sub

　　▋02使用 VBA 代碼

　　首先，復制寫好的代碼，回到表格界面。

　　你可以在開發工具里點擊「Visual Basic」，也可以在任意工作表上單擊右鍵，選擇「查看代碼」。

　　之后，在左側的項目工具欄中單擊右鍵，插入一個模塊，再將代碼粘貼到模塊里。

　　把鼠標置于代碼中間，點擊執行按鈕，AI 便能迅速將所有工作表的數據合并在一起，還能完美保留復雜的表頭。

　　合并后的效果。

　　▋03保存文件

　　最后，一定要把文件另存為XLSM 格式，這樣寫好的代碼就能保存下來。

　　下次再遇到同樣的需求，無需再次求助 AI，直接執行代碼即可。

　　▋04添加按鈕

　　為了讓代碼執行更便捷，我們可以在插入選項卡中插入一個形狀，在形狀上右鍵選擇「指定宏」。

　　選中剛才編寫的代碼并點擊確定。

　　這樣，下次直接點擊這個形狀就能執行代碼，十分好用。

　　用好 DeepSeek 的關鍵在于鍛煉你的【跨界能力】。DeepSeek 出色的地方是邏輯推理過程。DeepSeek 的思考過程與人類極為相似，極具借鑒價值。

　　DeepSeek 用文字給出了優質的回答后，再和其他 AI 工具結合起來，可以讓 DeepSeek 的能力成倍的增長。比如：

　　? DeepSeek+Photoshop，AI 智能完成 PS 修圖。

　　? DeepSeek+即夢，快速生成高質量 AI 圖片。

　　? DeepSeek+自媒體，一天產出幾十條小紅書文章。

　　? DeepSeek+VBA，人人都能寫代碼，實現自動化辦公。

　　當別人還在爭論「AI 會不會取代人類」時，聰明的人早已拿起工具，默默修筑自己的護城河。