从右到左拆分

Question

到目前为止，我的代码适用于 split

如何从右向左拆分它？

Sub try()
Dim size As String
Dim ResultSize() As String
Dim i As Integer
Dim MaxSize As Integer

size = "36;37;38;39"
ResultSize = Split(size, ";")
MaxSize = UBound(ResultSize)

For i = 0 To MaxSize
  Debug.Print ResultSize(i)
Next i

End Sub

Answer 1

你可以这样试试

Sub try()
Dim size As String
Dim ResultSize() As String
Dim i As Integer
Dim MaxSize As Integer

size = "36;37;38;39"
ResultSize = Split(size, ";")
MaxSize = UBound(ResultSize)

For i = MaxSize to 0 Step -1
  Debug.Print ResultSize(i)
Next i

End Sub

从右到左拆分

Split From Right to Left

excel

vba

split