[已解决]VBA怎么提取特定字符

sure

我有一个数据如下：
(-212.33,-33.02)|(-213.8,-36.118)
请问用VBA怎么一次提取提取出-212.33，-33.02，-213.8，-36.118这4个数据，并赋给a,b,c,d这4个变量？
谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-1-28 21:20

Sub test()
    Dim str$, arr
    str = "(-212.33,-33.02)|(-213.8,-36.118)"
    str = VBA.Replace(str, "(", "")
    str = VBA.Replace(str, ")", "")
    str = VBA.Replace(str, "|", ",")
    arr = VBA.Split(str, ",")
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim str$, arr
    str = "(-212.33,-33.02)|(-213.8,-36.118)"
    str = VBA.Replace(str, "(", "")
    str = VBA.Replace(str, ")", "")
    str = VBA.Replace(str, "|", ",")
    arr = VBA.Split(str, ",")
End Sub

sure

爱疯 发表于 2015-1-28 21:20
Sub test()
    Dim str$, arr
    str = "(-212.33,-33.02)|(-213.8,-36.118)"

谢谢，我是这样搞的：
Sub test()
Dim arr
Dim ss
ss = .Cells(1, 1).Value
ss = Replace(Replace(Replace(ss, "(", ""), ")", ""), "|", ",")
arr = Split(ss, ",")
a = Val(arr(0))
b = Val(arr(1))
c = Val(arr(2))
d = Val(arr(3))
End With
End Sub