vba - Excel/vba 在 superscipt 之后查找字符，替换并制作两个字符

Question

我想要的是找到“#”字符，将其删除并在其上标后添加 2 个字符。我有这个代码：

    pos = InStr(mycell.Value, "#")
    If pos > 0 Then
        mycell.Replace What:="#", Replacement:=""
        mycell.Characters(Start:=pos + 1, Length:=2).Font.Superscript = True
    End If

当我只更换 - 作品。当我只制作一些字符上标时 - 有效。当两者 - 只更换。

Answer 1

pos + 1 必须是 pos 因为您已经使用 Replace 方法删除了一个字符。经过测试，似乎在 Excel 2010 中运行良好。

pos = InStr(myCell.Value, "#")
If pos > 0 Then
    myCell.Replace What:="#", Replacement:=""
    myCell.Characters(Start:=pos, Length:=2).Font.Superscript = True
End If