告别复制粘贴！豆包AI 10秒拆Excel报表，3步操作彻底解放双手

每临月底，面对着数十个网点抑或部门的报表数据拆分，复制粘贴直致双手绵软无力！

领导猝然要求调整数据，竟需通宵达旦重新制作所有文件……

倘若您亦深陷如此这般的困境，今日这篇快速处理 Excel 教程，必将彻底解放您的双手！

仅需依循以下步骤操作，您便能轻松达成！！！

场景：将 Excel 表格依照 A 列【网点名称】拆分为各自独立的工作表（Sheet），且以【网点名称】命名。（下图所示）

网点销售模拟数据

1.豆包AI 三步操作

1.1 装上豆包工具或直接访问下面官网

浏器打开：
https://www.doubao.com/chat

豆包AI工具

1.2 上传Excel文件（带有原数据的文件）

点击豆包工具对话框中回形针的图标

选择附件图标

附件

在弹出的文件管理器对话框中找到指定的Excel文件

豆包会自动上传好文件

豆包上载文件

1.3 输入明确指令

在豆包对话框中输入如下指令，并点击蓝色剪头按钮

输入指令

复制以下指令：

请帮忙将附件Excel根据下面的要求进行拆分：
1. 根据A列"网点名称"拆分工作表Sheet 
2. 每个网点生成独立的Sheet

豆包自动处理，并返回“Test_split.xlsx”的文件

自动处理

点击并下载“test_split.xlsx”文件（豆包已自动处理好）

下载文件

查看下载的文件

打开文件test_split.xlsx文件

打开文件test_split.xlsx文件

豆包已帮忙搞掂，每组数据都以“网点名称”名命好了，Yeah!!!

已拆分好的Sheet

通过以上简单三个步骤，你就可以快速拆分Excel数据并生成独立的“网点”分组（sheet）数据。

这样操作是不是十分高效？是不是很简单呢？欢迎留言讨论

2.其它传统操作

2.1 使用Excel公式

如：“=UNIQUE(总表!$A:$A)”进行过滤拆分

2.2 使用VBA宏处理

VBA代码如下

Sub SplitWorksheetByLocation()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim loc As String
    Dim locDict As Object '用于存储唯一网点名称的字典对象
    
   '设置要拆分的工作表
    Set ws = ThisWorkbook.Sheets("总表")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '获取总表的最后一行数据行号
    
   '创建字典对象来存储唯一的网点名称
    Set locDict = CreateObject("Scripting.Dictionary")
    For i = 2 To lastRow '从第二行开始，假设第一行为表头
        loc = ws.Cells(i, 1).Value
        If Not locDict.Exists(loc) Then
            locDict.Add loc, True
        End If
    Next i
    
   '遍历字典，为每个网点名称创建新的工作表并复制数据
    For Each loc In locDict.Keys
       '创建新工作表
        On Error Resume Next '忽略可能的错误，比如同名工作表已存在
        Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newWs.Name = loc
        On Error GoTo 0 '恢复正常错误处理
        
       '复制表头
        ws.Rows(1).Copy newWs.Rows(1)
        
       '复制对应网点的数据
        For i = 2 To lastRow
            If ws.Cells(i, 1).Value = loc Then
                ws.Rows(i).Copy newWs.Rows(newWs.Cells(newWs.Rows.Count, 1).End(xlUp).Row + 1)
            End If
        Next i
    Next loc
End Sub

上面的方式是传统的方法，对比豆包的操作就相对繁复

创作不易，您的建议，是我们进步的动力！欢迎留言及加关注，帮助我们做得更好！