excel - 替换excel中的文本

Question

我有一个 Excel 工作表，其中一些单元格包含缩写，例如 SC、FEW、... 后跟一个数字。例如 SC058 或 FEW01，有些单元格包含其中两种或三种的组合，即 FEW004 SC044。无论通过值附加到它们的数字如何，我都想替换每个缩写。例如，我希望将所有“FEW004，FEW056，...”替换为数字“5”等。

由于数据库很大，关于如何做到这一点的任何建议？

谢谢

Answer 1

我制作了一个快速示例，可以进行一种类型的替换（您将任何用“FEW”更改为“5”的示例），希望它有一些用处：

Sub substitute_abb()

theData = ActiveCell.Value
theNewData = ""

theDataArray = Split(theData, " ")

For Each x In theDataArray
    If InStr(x, "FEW") Then
        newSegment = "5"
        Else
        newSegment = x
    End If
    If theNewData = "" Then
        theNewData = newSegment
        Else
        theNewData = theNewData & " " & newSegment
    End If
Next

ActiveCell.Value = theNewData

End Sub

我意识到对于拆分分隔符，您可能需要“，”，而不仅仅是“”，然后再次在 theNewData 组合上可能需要“，”。当然，这需要扩展到其他替代品。这是一个好的开始吗？