如何在VBA中parsing一个包含math特殊ASCII码的string并进行纠正

我目前正在VBA中编写代码来检索某些财务模型的价格。 我有的问题是在Excel电子表格中，我有特殊的Ascii字符，如⅞¼等…我需要使用VBA在7/8 1/4等转换这…

我怎么能这样做？

谢谢你的帮助

Answer 1

如果你想要文字串replace，使用replacefunction，因此：

Sub changeit() Dim w As Worksheet Dim r As Range For Each r In Application.Selection r.Value = Replace(r.Value, Chr$(188), "1/4") r.Value = Replace(r.Value, Chr$(189), "1/2") r.Value = Replace(r.Value, Chr$(190), "3/4") Next End Sub 

等等。 （我已经分别完成了每一个，以便于阅读）。或者，你可以用@jalexioubuild议用0.25等replace字面string“1/4”，理想情况下使用查找表。 不知道Chr $代码是七八分之一。

Answer 2

创build一个查找表。 当它发现这些特殊字符中的一个适当地设置了该值（例如“1/2”= 0.5），并且如果不使用Val（）函数来获取该值。