分割字符串！！（在线等待给分）

Question

Dim tt As Variant
tt = Split(字符串, ",")
tt以数级形式访问

Answer 1

什么意思，看不太明白。
用left（），取出后将它赋给一个变量。

Answer 2

dim  TheStr as string
dim  TempStr() as stringTheStr="a,b,c,d"   '被分隔的字符串private sub ToSplit()
    Tempstr=Split(TheStr,",")  '将分隔出来的每一段放入字符串数组里。。
End Sub

Answer 3

dim i ,j
dim tempstr
i=instr(1,string,",")
tempstr=right(string,i-1)
i=tempstr(j,string,",")
tempstr2=mid(,,,)
,,,,,,
再想想，画画瓢吧

Answer 4

to hhdsq:我也是这么做的，呵呵
谢谢各位了。
舍不得分呀，：）

Answer 5

Private Sub Command1_Click()
    Dim tstr As String
    tstr = ",a,b,c,d,"
    Dim tastr() As String
    tastr = Split(tstr, ",")
    Dim i As Integer
    For i = 1 To UBound(tastr) - 1
        MsgBox tastr(i)
    Next i
End Sub