Excel VBA开发需求：匹配TESLA列值时清除FIAT/KIA列对应数据

需求说明 #

仅当标题为「FIAT」和「KIA」的列中，某行价格与同行情下「TESLA」列的价格相同时，清除该单元格的价格；其他列即便价格匹配，也保留原有值。

修正后的完整代码 #

Sub delete_matches()
    Dim LastRow As Long
    Dim LastColumn As Long, i As Long, teslaCol As Long
    Dim targetCols As Variant
    Dim col As Variant, row As Long
    
    ' 定义需要处理的目标列标题
    targetCols = Array("FIAT", "KIA")
    
    With Sheets("Sheet1")
        ' 获取表格最后一列和最后一行的位置
        LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        
        ' 定位TESLA列的位置
        For i = 1 To LastColumn
            If .Cells(1, i).Value = "TESLA" Then
                teslaCol = i
                Exit For
            End If
        Next i
        
        ' 未找到TESLA列时终止程序并提示
        If teslaCol = 0 Then
            MsgBox "未找到标题为TESLA的列"
            Exit Sub
        End If
        
        ' 遍历每个目标列
        For Each col In targetCols
            ' 找到当前目标列的位置
            For i = 1 To LastColumn
                If .Cells(1, i).Value = col Then
                    ' 逐行对比价格，匹配则清除内容
                    For row = 2 To LastRow ' 假设第1行为标题行，从第2行开始处理数据
                        If .Cells(row, i).Value = .Cells(row, teslaCol).Value Then
                            .Cells(row, i).ClearContents
                        End If
                    Next row
                    Exit For ' 找到目标列后退出循环，避免重复查找
                End If
            Next i
        Next col
    End With
End Sub

代码关键点说明 #

• 目标列灵活定义：通过targetCols数组指定需要处理的列，后续新增或修改目标列只需调整数组内容即可。
• 先定位基准列：先找到TESLA列的位置，避免后续重复查找，提升代码效率。
• 边界校验：增加未找到TESLA列的判断，防止因列不存在导致的运行错误。
• 逐行匹配清除：对每个目标列，逐行对比同行情TESLA列的数值，匹配时调用ClearContents清除单元格内容（仅清除值，保留格式）。

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