使用deepseek优化VBA代码

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： AI ， 大模型 ， deepseek ， VBA 今天试试看 deepseek 对 VBA 代码优化能力如何。我使用前面推送的一篇文章（详见： 使用 VBA 快速删除间隔行 ）中的示例，我对 deepseek 提问如下： 在 Excel 中，因为行重复或者空行等原因，我需要每间隔一行删除一行。下面是我编写的 VBA 代码： Sub DeleteAlternateRowsWithHeader() Dim rng As Range Dim cell As Range Dim deleteCount As Long Dim keepCount As Long Dim i As Long ' 显示用于选择源数据区域的输入对话框 On Error Resume Next Set rng = Application.InputBox(" 选择源数据区域 :", Type:=8) On Error GoTo 0 If rng Is Nothing Then MsgBox " 没有选择任何区域 .", vbExclamation Exit Sub End If ' 从第 3 行开始每隔一行删除一行 ( 标题行位于第一行 ) For i = rng.Rows.Count To 3 Step -1 If (i Mod 2) = 1 Then rng.Rows(i).EntireRow.Delete deleteCount = deleteCo ………………………………