Excel VBA将值与列进行比较

Sub CompareValuesWithColumn()
    Dim targetValue As Variant
    Dim columnRange As Range
    Dim cell As Range
    
    targetValue = "目标值" ' 设置目标值
    Set columnRange = Range("A1:A10") ' 设置要比较的列范围
    
    For Each cell In columnRange
        If cell.Value = targetValue Then
            ' 找到匹配的值
            ' 在这里可以执行相应的操作，比如修改其他单元格的值或者显示消息框
            MsgBox "找到匹配的值：" & targetValue
            Exit Sub ' 如果只需要找到第一个匹配的值，可以使用Exit Sub退出循环
        End If
    Next cell
    
    ' 循环结束后仍未找到匹配的值
    MsgBox "未找到匹配的值：" & targetValue
End Sub