- 最後登錄
- 2024-5-1
- 在線時間
- 0 小時
- 註冊時間
- 2007-11-16
- 閱讀權限
- 20
- 精華
- 0
- UID
- 2789285
- 帖子
- 66
- 積分
- 91 點
- 潛水值
- 17187 米
| 若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
我有一些資料,中間用","分隔,參考網路的資料,用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) ... |
|