AI辅助实现Excel数据按指定列去重并拆分的高效方法分享

作者：每日干货分享

发布时间：2025-11-09 19:26:08 浏览量：1 0

大家伙儿们好啊，伙伴们~这篇文章并非是广告哦，实实在在是想跟大伙分享一下小编所碰到的一个需求情形呢。最近呀得做一个Excel数据拆分工具，简单讲呢，就是期望针对源数据里指定的那一列进行去重操作之后，把它当作条件去拆分这份数据，设存在省份这个字段，那么就依照省份来逐个将这份数据拆分成单独省份的数据，并且予以保存。对于这个需求而言，其难度并非很高，只要是稍微具备VBA基础的人都能够将其完成，小编鉴于效率方面的因素，故而没有亲自去动手撰写，恰好存在AI，便随手对AI的能力进行了测试，最终的结果还是相当令人满意的，小编仅仅是对部分内容做了略微的调整，基本上算得上是可以直接拿来投入使用的，接下来呈现的是返回结果的截图以及代码。

Sub SplitDataAndSave()定义一个工作表对象，名为wsSource，再定义一个工作表对象，名为wsTemp 。定义名为rngData的区域，作为单元格区域，还有名为cell的单元格 。定义一个对象，名为dictUniqueValues。    Dim key As Variant    Dim newWorkbook As Workbook
    SetwsSource等于，ThisWorkbook的Sheets( ，（这里请补充完整内容呀，不然无法准确改写）) ， 。"Sheet1") ' 更改为你的源数据所在的工作表名创建一个对象，该对象的名称是Scripting.Dictionary，把它赋值给一个变量，这个变量的名字是dictUniqueValues。
    With wsSource        ' 获取数据范围        Set rngData = .Range("A1").CurrentRegion                ' 记录第3列（索引为2）的所有唯一值对于位于rngData列2中的每一个单元格，存在某个动作对其进行操作，此处动作具体为遍历，此遍历针对位于这些特定位置的单元格，这些单元格处于rngData列2中并以逐个方式。要是不存在这样的情况，即字典唯一值存在单元格的值，那就不成立，那么，情况就是这样，然后呢，接着往下看，那么此时，就会出现这样的状况，即并非字典唯一值存在单元格的值，那么就会出现那样的结果，接着。为字典“dictUniqueValues”添加键值对，其中键为单元格的值，值为数字1 ，。            End If        Next cell                ' 遍历所有唯一值并分别处理        For Each key In dictUniqueValues.Keys            ' 清理临时工作表将应用程序的显示报功能设置为关闭状态，通过特定操作达成此程序设置，此操作使应用程序在相应方面不再显示报信息，以此来实现满足程序当前运行阶段对于该特定功能。            On Error Resume Next            Sheets("TempSheet").Delete            On Error GoTo 0此应用程序的显示报功能被设为开启状态 ，此应用程序的显示报功能处于真的模态 ，此应用程序的显示报功能呈现为真的情况 。                        ' 创建新的临时工作表            SetwsTemp等于，ThisWorkbook的Sheets添加，（此处原句不完整，无法准确按要求改写完整）。After:=Sheets(Sheets.Count))            wsTemp.Name = "TempSheet"                        ' 筛选数据并复制到临时工作表            .AutoFilterMode = False这段内容看起来不像是普通文本，像是某种编程语言中的代码片段，直接按照要求改写会改变其原本语义和用途，不太符合实际需求。但按照指令尽量改写为：RNG数据，自动筛选，字段为2，条件1为键 。先要获取rngData里符合xlCellTypeVisible条件的特殊单元格，然后对其进行复制操作，接着把复制的内容粘贴到wsTemp的Range("A"1)这个地方 。                        ' 保存为新的工作簿            Set新工作簿等于工作簿集合添加，添加的是包含工作表的工作簿类型 ，这里此类型为xlWBATWorksheet 。可将其改写为：wsTemp的已使用区域进行复制操作，此操作实施于newWorkbook的工作表。1).Range("A1")                        ' 设置新工作簿属性并保存它将新的工作簿进行保存，保存时所使用的文件名是“Data_”加上那个特定key再接着是“.xlsx”，而文件格式方面则设定为xlOpenXMLWorkbook哦。新建的工作簿关闭，保存更改设置为真，这样表述，保存更改的值设定为真操作在了新建的工作簿关闭之上，使其保存更改设定为真，而关闭的是新建的工作簿 。                        ' 删除临时工作表            Application.DisplayAlerts = False            wsTemp.Delete            Application.DisplayAlerts = True        Next key    End With        MsgBox "已成功将数据按指定列条件拆分并保存为单独的工作簿！", vbInformationEnd Sub

关于AI，小编打算跟大家讲一讲：AI始终是一种工具，用来协助人去高质地达成各类任务，没必要抵触或者忧心，平常人不必清楚其模型的具体详情，秉持为我所用的心理去接纳它！当然，并非有了AI的辅助诸多知识就全然不用学习了吧？肯定是要学的，不然，返回的内容运行出现错误后你根本没办法调整，你拥有相关知识储备它才能够让你事倍功半！