如何在Excel VBA中用特定值替换一列中的所有值？

Sub ReplaceColumnValues()
    Dim rng As Range
    Dim replaceValue As Variant

    ' 设置要替换的列范围
    Set rng = Range("A1:A10")
    
    ' 设置要替换的特定值
    replaceValue = "原始值"
    
    ' 使用Replace方法将所有匹配的值替换为指定值
    rng.Replace What:=replaceValue, Replacement:="替换值", LookAt:=xlWhole, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
End Sub