Excel无法删除Em短划线并用En短划线replace

任何人都知道excel公式或Excel的VBA代码来代替Em破折号。 我只是无法弄清楚。 我的VLookup公式不适用于包含值“WARSAW – ICSD RED – EB”的单元格A1，因为文本中有很长的短划线。

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

还低于VBA代码：

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

Answer 1

string：“WARSAW – ICSD RED – EB”由我这个代码工作：

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

Answer 2

干得好：

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