VBA按钮点击重复执行问题求助：去重功能仅首次生效

问题描述 #

我正在制作公司司机监控与管理的Excel工作表，设置了按钮运行VBA代码实现删除重复项功能，首次使用正常，但删除部分数据并添加新数据后，按钮就不再生效了。希望每次点击按钮都能重复执行功能，不想每次加新司机都重新打开工作表。VBA基础薄弱，需要详尽解释和操作指导。

附原代码：

Private Sub CommandButton2_Click()

Dim rg As Range

With Worksheets("Driver Info Tool")
        lgLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
        Set rgData = .Range("A1:D" & lgLastRow)
    End With
With rgData
        .Sort Key1:=.Columns(4), Order1:=xlDescending, Header:=xlYes
        .RemoveDuplicates Columns:=1, Header:=xlYes
    End With
    
End Sub

工作表截图：

问题原因分析 #

• 变量未声明：代码里的lgLastRow和rgData没有提前声明变量类型，Excel会自动识别为Variant类型，数据范围变化时易出现不可预期的错误。
• 未处理空数据场景：删除数据后只剩表头时，代码会把表头当成数据处理，导致后续操作失效。
• 未明确激活目标工作表：若当前激活的不是Driver Info Tool工作表，可能出现隐式范围识别错误。

修改后的代码 #

Option Explicit ' 强制声明所有变量，避免类型错误

Private Sub CommandButton2_Click()
    Dim ws As Worksheet
    Dim lgLastRow As Long
    Dim rgData As Range
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Worksheets("Driver Info Tool")
    
    ' 切换到目标工作表，避免激活其他表导致的错误
    ws.Activate
    
    ' 获取A列最后一行有数据的行号
    lgLastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    
    ' 检查是否只有表头（第1行）
    If lgLastRow <= 1 Then
        MsgBox "没有可处理的数据！", vbInformation
        Exit Sub
    End If
    
    ' 设置数据范围（包含表头）
    Set rgData = ws.Range("A1:D" & lgLastRow)
    
    ' 先排序再删除重复项
    With rgData
        .Sort Key1:=.Columns(4), Order1:=xlDescending, Header:=xlYes
        .RemoveDuplicates Columns:=1, Header:=xlYes
    End With
    
    MsgBox "重复项已删除完成！", vbInformation
End Sub

操作步骤指导 #

• 打开VBA编辑器：按下Alt + F11组合键，打开Excel的VBA编辑器。
• 找到对应模块：在左侧的“工程资源管理器”里，找到你的工作表（比如Sheet1 (Driver Info Tool)），双击打开它的代码窗口。
• 替换原代码：删除原来的所有代码，粘贴上面修改后的代码。
• 保存文件：按下Ctrl + S保存，注意Excel 2007及以后版本需保存为启用宏的工作簿（*.xlsm）格式，否则宏会失效。
• 测试功能：回到Excel工作表，删除部分数据、添加新司机信息后点击按钮测试，正常情况下会弹出操作完成的提示框，重复项也会被正确删除。

关键代码解释 #

• Option Explicit：强制要求所有变量必须声明，避免因变量类型混乱导致的隐藏错误。
• ws.Activate：确保操作的是目标工作表，防止当前激活其他表时出现数据范围识别错误。
• If lgLastRow <= 1 Then：判断是否只有表头，避免无数据时执行排序和删除操作导致的报错。
• MsgBox：操作完成后给出明确提示，确认功能已执行。

内容的提问来源于stack exchange，提问作者Shagruiez