如何在Excel VBA中替换列中的特定值？

Sub ReplaceValues()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要替换的范围
    Set rng = Range("A1:A10")
    
    ' 循环遍历范围中的每个单元格
    For Each cell In rng
        ' 判断单元格的值是否需要替换
        If cell.Value = "特定值" Then
            ' 替换为新的值
            cell.Value = "替换值"
        End If
    Next cell
End Sub