Question

在没有任何特殊的

的情况下，我需要帮助从字符串中替换一些字符

字符存在。我有一个像[＆＃34; 3130 3210 N JOG ROAD＆＃34;并且＆＃34; 30 - 36 N Lorance blvd＆＃34;。

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

所以我的最终结果应该是＆＃34; 3210 N JOG ROAD＆＃34;和＃34; 36 N Lorance blvd＆＃34;

我的表数据就像..

3130 3210 N JOG ROAD

30 - 36 N Lorance blvd

78 Arx Street

90，RockWell

，预期结果是

3210 N JOG ROAD

36 N Lorance blvd

78 Arx Street

90，RockWell

提前致谢。

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)

如果vba中没有特殊字符，如何拆分单元格的结果？

2 个答案: