7,764
社区成员
发帖
与我相关
我的任务
分享
Dim strData As String, strSubString() As String
strData = "&BBBBB"
strSubString = Split(strData, "&")
If UBound(strSubString) >= 1 Then
Debug.Print "["; strSubString(1); "]" ‘BBBBB ?
End If
小心驶得万年船 Dim strData As String, strSubString() As String
strData = "AAAA&myString&BBBBB"
strSubString = Split(strData, "&")
If UBound(strSubString) >= 1 Then
Debug.Print strSubString(1)
End If