Excel Split,字串轉陣列
Function 字串轉陣列()
Dim arr_tmp
StrCell = "37,"
intVar = Len(StrCell)
Re_StrCell = Left(StrCell, intVar - 1)
arr_tmp = Split(Re_StrCell, ",")
For i = 0 To UBound(arr_tmp)
Debug.Print arr_tmp(i)
Next i
End Function
Dim arr_tmp
StrCell = "37,"
intVar = Len(StrCell)
Re_StrCell = Left(StrCell, intVar - 1)
arr_tmp = Split(Re_StrCell, ",")
For i = 0 To UBound(arr_tmp)
Debug.Print arr_tmp(i)
Next i
End Function
留言
張貼留言