我有一些資料,中間用","分隔,參考網路的資料,用vba寫了底下這一個來簡化過程,
Sub 分開()
For i = 14 To 26
' 取得原始資料
rawData = Cells(i, 10)
' 使用 Split 分割欄位
fieldArray = Split(rawData, ", ")
' 將各個欄位填入對應的儲存格
For j = 0 To 2
Cells(i, j + 11).Value = fieldArray(j)
Next j
Next i
End Sub
但網路上的資料,每行的數量都是固定的,但我的資料每行數量不定,執行時就會一直跳出錯誤,
for j= 這個部分該怎麼寫才會讓每行不同的數量,都能分割開來且不會跳出錯誤呢?
原本都是a,b,c→a b c 我的資料 a,b,c,e → a b c d
c,d,e→c d e a →a
d,t,h→d t h a,s →a s