在指定范围内扫描值并高亮匹配的正负对等值

双重循环处理2000+行数据时，时间复杂度为O(n²)，数据量越大耗时越夸张。改用**哈希表（字典）**做单次遍历就能解决，时间复杂度降到O(n)，速度提升非常明显。

核心逻辑 #

遍历每一行数据时，用字典记录已经见过的数值及其单元格位置：

• 若当前数值的相反数已在字典中：取出对应单元格，和当前单元格一起高亮，随后删除字典里的这条记录（避免重复匹配）
• 若没找到相反数：把当前数值和单元格地址存入字典

VBA代码实现 #

Sub HighlightOppositePairs()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim valueDict As Object
    Dim currentVal As Double
    Dim oppositeVal As Double
    
    ' 替换成你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 假设数据在A列，自动获取最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 创建字典对象
    Set valueDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历数据行（跳过表头，从A2开始）
    For Each cell In ws.Range("A2:A" & lastRow)
        currentVal = cell.Value
        oppositeVal = -currentVal
        
        ' 检查相反数是否已存在
        If valueDict.Exists(oppositeVal) Then
            ' 高亮当前单元格和匹配到的单元格
            cell.Interior.Color = RGB(255, 255, 0)
            ws.Range(valueDict(oppositeVal)).Interior.Color = RGB(255, 255, 0)
            ' 删除已匹配的条目，防止重复处理
            valueDict.Remove oppositeVal
        Else
            ' 若当前值未存入字典，添加进去
            If Not valueDict.Exists(currentVal) Then
                valueDict.Add currentVal, cell.Address
            End If
        End If
    Next cell
    
    ' 释放对象
    Set valueDict = Nothing
    Set ws = Nothing
End Sub

细节说明 #

• 字典的查找操作是O(1)级别的，2000行数据几秒内就能处理完成
• 匹配后删除字典条目，避免同一对数值被反复匹配高亮
• 可自行修改RGB参数调整高亮颜色，或者更改数据列（把代码里的"A"换成你的目标列）
• 如果存在重复数值对（比如多个10和多个-10），可以把字典的值改成集合，存储多个单元格地址，实现多组匹配

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