伊莉討論區

標題: vab Split分割欄位無法處理比數不同的狀況 [打印本頁]

作者: 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





作者: tryit244178    時間: 2023-9-13 01:58 PM

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

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




歡迎光臨 伊莉討論區 (http://a04.eyny.com/) Powered by Discuz!