在代码编写领域，DeepSeek的大名如雷贯耳，大家都知道它实力非凡，却没想到它能如此强大。今天，就为大家揭开它神秘的面纱，通过演示如何借助 DeepSeek 实现神秘又高级的表格拆分功能，让你亲眼见证它的魅力。
首先，让我们来看看最终的表格拆分效果。原本复杂的表格，经过处理后，按照特定的项目被拆分成了多个单独的工作表，数据清晰明了，管理和查看都变得十分便捷。
很多人可能会觉得，这样高级的功能，只有编程高手才能完成，实则不然。借助 DeepSeek 的强大能力，即使是初学者也能轻松做到。接下来，就跟着我一步步操作吧。
一、DeepSeek助力代码编写
要实现表格拆分，第一步就是让 DeepSeek 帮我们编写代码。我们向它下达指令：“帮我用 VBA 编写一段表格拆分代码，执行弹出一个提示窗口，点退出退出拆分，点确定对所选列按项目进行拆分成单独的工作表”。没想到，DeepSeek 的速度如此之快，转眼间，一段完整的代码就呈现在我们面前：
很快代码编写完成。
Sub SplitDataByProject()
Dim selectedRange As Range
Dim splitColumn As Long
Dim dict As Object
Dim cell As Range
Dim key As Variant
Dim newSheet As Worksheet
Dim originalSheet As Worksheet
Dim response As VbMsgBoxResult
' 显示确认对话框
response = MsgBox("是否按所选列拆分数据？" & vbCrLf & _
"点击确定开始拆分，点击取消退出", _
vbOKCancel vbQuestion, "表格拆分")
If response = vbCancel Then Exit Sub
' 获取当前选择范围
On Error Resume Next
Set selectedRange = Selection
On Error GoTo 0
If selectedRange Is Nothing Then
MsgBox "请先选择要拆分的列！", vbExclamation
Exit Sub
End If
' 获取拆分列号
splitColumn = selectedRange.Column
' 创建字典存储唯一值
Set dict = CreateObject("Scripting.Dictionary")
Set originalSheet = ActiveSheet
' 收集唯一值（跳过空值和标题行）
For Each cell In originalSheet.UsedRange.Columns(splitColumn).Cells
If cell.Row > 1 And Not IsEmpty(cell) Then
dict(cell.Value) = 1
End If
Next cell
If dict.Count = 0 Then
MsgBox "所选列没有可拆分的数据！", vbExclamation
Exit Sub
End If
' 优化性能设置
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
' 遍历字典键值
For Each key In dict.Keys
' 清理工作表名称
Dim sheetName As String
sheetName = CleanSheetName(CStr(key))
' 删除已存在的工作表
If SheetExists(sheetName) Then
Worksheets(sheetName).Delete
End If
' 创建新工作表
Set newSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
newSheet.Name = sheetName
' 复制标题行
originalSheet.Rows(1).Copy newSheet.Rows(1)
' 筛选并复制数据
originalSheet.UsedRange.AutoFilter Field:=splitColumn, Criteria1:=key
originalSheet.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy _
newSheet.Range("A2")
' 调整列宽
newSheet.Cells.EntireColumn.AutoFit
Next key
' 恢复原始设置
originalSheet.AutoFilterMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
MsgBox "成功拆分出 " & dict.Count & " 个工作表！", vbInformation
End Sub
' 工作表名称清理函数
Function CleanSheetName(str As String) As String
Dim invalidChars As String
invalidChars = "!@#$%^&*() -=[]{};':"",./<>?|`~"
Dim i As Integer
' 替换特殊字符
For i = 1 To Len(invalidChars)
str = Replace(str, Mid(invalidChars, i, 1), "_")
Next i
' 处理开头为单引号的情况
If Left(str, 1) = "'" Then str = "_" & Right(str, Len(str) - 1)
' 截断超过31字符的名称
If Len(str) > 31 Then
str = Left(str, 31)
End If
CleanSheetName = str
End Function
' 检查工作表是否存在
Function SheetExists(sheetName As String) As Boolean
On Error Resume Next
SheetExists = Not Worksheets(sheetName) Is Nothing
On Error GoTo 0
End Function二、试运行，见证奇迹
有了代码，接下来就是试运行。我们先新建一个空白的 Excel 工作簿，并准备一些测试数据。然后，将代码粘贴到 VBE 编辑器的一个新模块内。
把光标放置在主程序（以 “Sub” 开头的代码）中，同时选中表格某一列的测试数据，点击 VBE 编辑器中的运行命令。令人惊喜的是，DeepSeek 编写的代码一次就成功了！表格按照我们的要求，完美地被拆分成了多个单独的工作表，这充分证明了 DeepSeek 强大的代码编写能力。
三、加载代码与添加命令
为了能更方便地使用这个表格拆分功能，我们还需要进行后续操作。首先，把文件另存为Excel加载宏格式，然后在加载项窗口中勾选启用。
接着，在工具栏上右键点击，选择 “自定义功能区 - 宏”，把宏名称添加到右侧的工具栏中。经过这些步骤，我们就成功地将表格拆分功能集成到了Excel中，以后使用起来就更加便捷了。
通过这次演示，我们深切感受到DeepSeek在代码编写方面的强大实力。它不仅能快速生成高质量的代码，还能帮助我们轻松实现复杂的功能。相信在未来，DeepSeek会给我们带来更多的惊喜和便利。如果你也想提升自己的工作效率，不妨尝试一下借助DeepSeek来解决问题吧！
评论 (0)