Excel谍报局

职场定约Excel

分娩挖掘共享Excel基础妙技Super Excel Man 用1%的Excel基础处理99%的职场问题 作念一个超等实用的Excel公众号 Excel是门时期玩转需要勇气 数万Excel爱重者议论地

图片

巨匠好，最近DeepSeek（深度求索）AI智能在抖音火爆了，传说好意思国的ChatGPT齐嗅觉到了危险，最热切的是DeepSeek是开源免费的。智能化愈加优秀。

那么奈何欺骗DeepSeek竣事在Excel中对使命簿内所有使命表进行批量归并呢？

如下图所示：

有“销售部”、“财务部”、“分娩部”3张分表，咱们想要将这3张分表归并到新的总表中，3张分表的首行齐为体式和内容相通的标题行。何况归并后的总表也只可有首行一瞥标题行。

图片

DeepSeek Chat是由深度求索公司开辟的AI智能助手。DeepSeek Chat基于DeepSeek诳言语模子开辟，不错进行当然话语处理和文本生成，回应多样问题，提供信息查询、对话交流、常识问答等工作。

图片

当先翻开官网：https://www.deepseek.com不错点击“运转对话”在PC端径直使用，也不错点击“获得手机APP”在手机迁徙端使用。

图片

将针关于数据源的问题面孔详备的输入在“发送音尘对话框”内，勾选“深度想考”，并将你的问题数据源，如本例中的“Excel谍报局”使命簿（需要归并使命表的数据源）看成附件上传。详实“上传附件”与“联网搜索”功能不行同期使用，必须使用其一。问题详备面孔：【Excel使命簿内包含多个使命表，每个使命表第一瞥是标题行，将多个使命表中的数据归并到新的使命表中，何况首行径标题行。请写一段VBA代码，多想考几次】

图片

点击“发送”后，DeepSeek即可通过精湛的想考，回应你的问题并给出想路：

图片

咱们来摘录一段DeepSeek前期想考，通盘经由嗅觉像东说念主雷同想考：

【嗯，用户有一个Excel使命簿，内部有多个使命表，每个使命表的第一瞥是标题行。用户想把这些不同使命内外的数据归并到一个新的使命表中，何况保留首行看成标题行。需要写一段VBA代码来竣事这个功能。

当先，我需要意会每个使命表中的数据结构。比如，“销售部”、“财务部”、“分娩部”齐有相通的列结构：部门、姓名、工号。数据行从第二走运转，每个使命表有三行数据，但内容情况下可能有更多。我需要确保代码能处理不同数目的数据行。

接下来，归并数据的法度应该是这么的：新建一个使命表，看成汇总表。然后遍历每一个现存的使命表，跳过第一个标题行，把数据复制到汇总表中。

需要详实的是，汇总表的标题行只需要出现一次，是以第一次复制时要包含标题，之后的不再包含，或者先单独复制标题行，再处理数据。

可能的罗网：要是使命表中有除了数据以外的其它内容，比如中间有空行或者其它体式，可能会影响遵守。但凭证用户提供的数据示例，每个使命表的结构是法度的，是以暂时不需要处理这些格外情况。

另外，要确保VBA代码粗略动态识别所有的使命表，排撤离可能存在的非数据使命表。举例，用户可能有一个汇总表依然存在，或者在代码运行前需要先查验是否存在，若存在则删除或阴事】

DeepSeek给出咱们最终的VBA代码解决决议：

代码评释：

创建名为"汇总"的新使命表，若已存在则清空内容。

从第一个使命表复制标题行到汇总表首行。

遍历所有使命表（摒弃汇总表自己）。

自动识别每个使命表的数据边界（从A2到C列终末一瞥）。

将数据秩序追加到汇总表中。

最终自动调度列宽并弹出完成教导。

Sub MergeSheets()    Dim ws As Worksheet    Dim SummarySheet As Worksheet    Dim LastRow As Long    Dim DestRow As Long    ' 创建/竖立汇总表    On Error Resume Next    Set SummarySheet = ThisWorkbook.Sheets("汇总")    If SummarySheet Is Nothing Then        Set SummarySheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))        SummarySheet.Name = "汇总"    Else        SummarySheet.UsedRange.ClearContents    End If    On Error GoTo 0    ' 复制标题行（取第一个使命表的标题）    ThisWorkbook.Sheets(1).Rows(1).Copy SummarySheet.Rows(1)    DestRow = 2 ' 从第二走运转粘贴数据    ' 遍历所有使命表    For Each ws In ThisWorkbook.Worksheets        If ws.Name <> "汇总" Then            LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row            If LastRow > 1 Then ' 跳过仅含标题的使命表                ws.Range("A2:C" & LastRow).Copy SummarySheet.Range("A" & DestRow)                DestRow = DestRow + (LastRow - 1)            End If        End If    Next ws    ' 自动调度列宽    SummarySheet.Columns("A:C").AutoFit    MsgBox "数据归并完成！", vbInformationEnd Sub

DeepSeek还针对一些格外情况给出的一些详实事项，很贴心：

详实事项：

确保所有使命表结构一致（列法例：部门、姓名、工号）。

标题行必须位于每个使命表的第一瞥。

撑捏随性行数的数据归并。

遵守保存在新建的"汇总"使命表中。

代码会跳过没突出据的使命表（仅含标题行的使命表）。

咱们凭证底下的“运行步履”，在Excel或WPS表格中进行操作，最终即可完成多使命表归并：

运行步履：

按 Alt+F11 翻开VBA裁剪器。

插入新模块。

粘贴代码。

按F5运行宏。

检察生成的"汇总"使命表。

图片

其实叠加学习Excel，刚运转是挺难的，但叠加的次数多了总会成为民风，先从坚捏一星期运转，你会爱上那种脑子又累，又无尽充实的嗅觉。回归要津内容，善用图片抒发，学会成立相关，拓展深度广度，浓缩要津见识，应用到行动中，善于归纳总结，尝试进行共享。

图片

 

本站仅提供存储工作，所有内容均由用户发布，如发现存害或侵权内容，请点击举报。