查看完整版本: vab Split分割欄位無法處理比數不同的狀況
頁: [1]

zbc231 發表於 2023-8-12 03:48 PM

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 01:58 PM

本帖最後由 tryit244178 於 2023-9-13 02:00 PM 編輯

網路上找來的,可以用這個Dim colNum As Long
colNum = Cells(1, Columns.Count).End(xlToLeft).Column取得每列最後行的位置
頁: [1]