跨两列去重VBA代码故障排查：移除J列与K列重复值

嘿，我帮你捋捋这段VBA代码的问题，再给你两个靠谱的解决方案：

首先，你的代码有几个明显的bug导致无法运行：

• 代码里的.（比如.Range("K2").End(xlDown)）没有对应的With语句，VBA根本不知道这个范围属于哪个工作表，直接就会报错
• 你试图用ActiveSheet.Range("J2:rng2")引用范围，但rng2是变量，不能直接嵌在字符串里，VBA会把它当成普通文本，完全识别不了
• 最关键的：RemoveDuplicates方法是用来删除指定范围内自身的重复值，不是用来和另一列比对删除重复的，这个方法从场景上就用错了

接下来给你两个可行的VBA方案，你按需选：

方案1：用集合快速比对删除（效率高，适合大数据量） #

这个方法把K列的值存进集合，再快速遍历J列判断重复，从下往上删不会打乱行号：

Sub Remove_J_Duplicates_Against_K()
    Dim ws As Worksheet
    Dim kValues As Collection
    Dim lastRowJ As Long, lastRowK As Long
    Dim i As Long
    
    ' 建议替换成你的工作表名，比如Sheets("数据汇总")，别依赖ActiveSheet
    Set ws = ActiveSheet
    Set kValues = New Collection
    
    ' 把K列值存入集合（自动去重，方便快速查找）
    On Error Resume Next ' 忽略重复值存入集合的报错
    lastRowK = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
    For i = 2 To lastRowK
        kValues.Add ws.Cells(i, "K").Value, Key:=CStr(ws.Cells(i, "K").Value)
    Next i
    On Error GoTo 0
    
    ' 从下往上遍历J列，删除重复值
    lastRowJ = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
    For i = lastRowJ To 2 Step -1
        On Error Resume Next
        kValues.Item(CStr(ws.Cells(i, "J").Value))
        If Err.Number = 0 Then
            ' 如果你要清空J列单元格内容，用这句
            ws.Cells(i, "J").ClearContents
            ' 如果你要删除整行，替换成 ws.Rows(i).Delete
        End If
        On Error GoTo 0
    Next i
End Sub

方案2：辅助列+筛选删除（直观易理解，适合新手） #

先通过公式标记重复行，再筛选删除，逻辑更清晰：

Sub Remove_Duplicates_With_Helper()
    Dim ws As Worksheet
    Dim lastRowJ As Long, lastRowK As Long
    Dim helperCol As Range
    
    Set ws = ActiveSheet
    lastRowJ = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
    lastRowK = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
    
    ' 用L列做辅助列，标记J列是否在K列存在重复
    Set helperCol = ws.Range("L2:L" & lastRowJ)
    helperCol.Formula = "=COUNTIF($K$2:$K$" & lastRowK & ",J2)>0"
    
    ' 筛选出重复的行，清空J列内容（或删除整行）
    ws.Range("J1:L" & lastRowJ).AutoFilter Field:=3, Criteria1:="TRUE"
    ws.Range("J2:J" & lastRowJ).SpecialCells(xlCellTypeVisible).ClearContents
    ' 要删整行就换成：ws.Range("J2:L" & lastRowJ).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    
    ' 取消筛选并删除辅助列
    ws.AutoFilterMode = False
    ws.Columns("L").Delete
End Sub

小提醒： #

• 别依赖ActiveSheet，直接写工作表名更稳妥，避免切换表时出错
• 要是需要删除整行，把代码里的ClearContents换成EntireRow.Delete就行
• 从下往上遍历/删除是因为从上往下删会导致行号错位，漏掉数据

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