vab Split分割欄位無法處理比數不同的狀況

zbc231

我有一些資料，中間用","分隔，參考網路的資料，用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)
...

瀏覽完整內容，請先 註冊 或 登入會員

tryit244178

網路上找來的，可以用這個

1. Dim colNum As Long
   
2. colNum = Cells(1, Columns.Count).End(xlToLeft).Column

複製代碼

取得每列最後行的位置