Excel无法删除Em破折号并替换为En dash

Question

任何人都知道excel的excel公式或VBA代码，用En dash替换Em dash。我只是想不通。我的VLookup公式不适用于包含值＆＃39; WARSAW - ICSD RED - EB＆＃39;因为文字中有一个很长的短划线。

我已经尝试过excel公式=SUBSTITUTE(A1,"—","–")

也低于VBA代码：

Range("A:A").EntireColumn.Replace What:="—", Replacement:="–", lookat:=xlPart

Answer 1

你走了：

=SUBSTITUTE(A1;CHAR(151);CHAR(150))

Answer 2

用字符串：“WARSAW - ICSD RED - EB” 通过我这个代码工作：

Sub changer()
    Dim str As String
    str = Cells(1, 1).Value
    str = Replace(str, "–", "-")
    Cells(2, 1) = str
End Sub