如何在Excel单列选中区域内实现Buy与Sell文本值互换

方案1：使用临时占位值实现互换（效率最高，无需遍历） #

你遇到的是两次替换逻辑冲突的问题，只需要引入一个不会在当前数据范围内出现的临时字符串做中转即可，无需遍历，执行效率和原生Replace操作一致，特别适合大数据量场景。
优化后的代码如下：

' 直接操作单元格避免Select带来的不稳定问题，执行效率更高
Dim workRng As Range
Set workRng = Range(Range("B4"), Range("B4").End(xlDown))

' 复制原数据到C列
workRng.Copy Range("C4")
Set workRng = Range(Range("C4"), Range("C4").End(xlDown))

' 三步替换实现两个值的安全互换
Const TEMP_VAL As String = "@@_TEMP_REPLACE_MARKER_@@"
With workRng
    ' 第一步：把Bought先替换为临时占位值
    .Replace What:="Bought", Replacement:=TEMP_VAL, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False
    ' 第二步：把Sold替换为Bought
    .Replace What:="Sold", Replacement:="Bought", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False
    ' 第三步：把临时占位值替换为Sold
    .Replace What:=TEMP_VAL, Replacement:="Sold", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False
End With

注意：这里把你原有代码的LookAt:=xlPart改成了LookAt:=xlWhole，避免单元格内容包含Bought/Sold子串时出现误替换，如果你确实需要模糊匹配可以改回xlPart。

方案2：遍历单元格实现（适合需要附加判断逻辑的场景） #

如果后续你需要对单元格值做更多自定义处理，可以用遍历单元格的方式实现，代码如下：

Dim workRng As Range, cell As Range
Set workRng = Range(Range("B4"), Range("B4").End(xlDown))

workRng.Copy Range("C4")
Set workRng = Range(Range("C4"), Range("C4").End(xlDown))

For Each cell In workRng
    Select Case cell.Value
        Case "Bought": cell.Value = "Sold"
        Case "Sold": cell.Value = "Bought"
    End Select
Next cell

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