如果vba中不存在特殊字符，如何分割单元格的结果

Question

我需要帮助从字符串中替换一些字符，而没有任何特殊的

人物存在。我有一个值的表，如"3130 3210 N JOG ROAD"one_answers"30 - 36 N Lorance blvd"。

我想删除第一个字符集，即3130和30。

所以我的最终结果应该是"3210 N JOG ROAD"one_answers"36 N Lorance blvd"

我的表数据是…

---

3130 3210 N JOG ROAD

---

30 - 36 N Lorance blvd

---

Arx街78号

---

90,罗克韦尔

，预期结果为

---

北路3210号

---

36 N Lorance blvd

---

Arx街78号

---

90,罗克韦尔

Answer 1

Dim xyz As String
Dim spltVal As Variant
Public Sub Split_String()
    xyz = "3210 N JOG ROAD"
    spltVal = Split(xyz, " ")
    For i = 0 To UBound(spltVal)
        Debug.Print spltVal(i)
    Next
End Sub

试试这个，希望对你有帮助

Answer 2

试试Split()函数:

Msgbox Split("3130 3210 N JOG ROAD"," ",2)(1)