简单的替换功能不适用于度数符号

199

奥尼曼

如果我尝试这个-

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

结果是预期的。但是，我要从另一个工作簿中提取数据，因此它存储在变量中。所以，当我跑步时-

Replace(ToleranceLabel, "°", vbNullString)

它永远都行不通。然后，我尝试使用“ Chr”功能。

Replace(ToleranceLabel, Chr(176), vbNullString)

仍然没有用。我想验证文本，我得到的是十进制数字176的unicode符号，而不是使用十进制数字186的unicode符号。我检查了十进制数字，然后得到176。

我尝试了不同的比较方法，即vbTextCompare和vbBinaryCompare。我仍然无法替换它。

使用InStr来查看它是否甚至可以找到该符号，并且找不到度数符号。

它一定很简单。我希望你们中的任何天才都能为您提供帮助。提前致谢。

加里的学生

您需要确切了解单元格中的内容。单击单元格并运行：

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

例如：

在此处输入图片说明