頁:
[1]
vab Split分割欄位無法處理比數不同的狀況
我有一些資料,中間用","分隔,參考網路的資料,用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
...<div class='locked'><em>瀏覽完整內容,請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div> 本帖最後由 tryit244178 於 2023-9-13 02:00 PM 編輯
網路上找來的,可以用這個Dim colNum As Long
colNum = Cells(1, Columns.Count).End(xlToLeft).Column取得每列最後行的位置
頁:
[1]