简单replacefunction不能使用度数符号

如果我尝试这个 –

Replace("±1°", "°", vbNullString) 

结果如预期。 但是，我从另一个工作簿中提取数据，所以它存储在一个variables中。 所以，当我运行 –

 Replace(ToleranceLabel, "°", vbNullString) 

它从来没有工作。 然后我尝试了“Chr”function。

 Replace(ToleranceLabel, Chr(176), vbNullString) 

仍然没有工作。 我想validation文本我得到的十进制数为176的unicode符号，而不是unicode使用度数的十进制数字186。 我检查了十进制数，我得到了176。

我尝试了不同的比较方法，vbTextCompare vs vbBinaryCompare。 我仍然无法取代文字。

使用InStr查看它是否可以find符号，但找不到符号。

这一定很简单。 我希望你们中的任何一位天才都能帮上忙。 提前致谢。

Answer 1

你需要明确地知道单元格中的内容。 点击单元格并运行：

 Sub WhatIsInThere() Dim i As Long, msg As String msg = Len(ActiveCell.Value) & vbCrLf For i = 1 To Len(ActiveCell.Value) msg = msg & vbCrLf & i & vbTab & Mid(ActiveCell.Value, i, 1) & vbTab & AscW(Mid(ActiveCell.Value, i, 1)) Next i MsgBox msg End Sub 

例如：

然后你可以决定如何处理细胞。