[簡]成為名留歷史的壞	新北高中生這是反串	(1月新番)[繁]平凡上
[繁]精靈幻想記第二	(1月新番)[繁]我和班	[簡]神之塔第二季26-

查看: 3269|回復: 1

[求助]vab Split分割欄位無法處理比數不同的狀況[複製鏈接]

zbc231

高級幼兒生(30/200)

Rank: 1

帖子: 66
積分: 91 點
潛水值: 17667 米

電梯直達

樓主

發表於 2023-8-12 03:48 PM|只看該作者|正序瀏覽

若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

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

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

分享0收藏0支持0

成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。

使用道具檢舉

tryit244178

尊貴會員

Rank: 6 Rank: 6 Rank: 6 Rank: 6 Rank: 6 Rank: 6

帖子: 155
積分: 1282 點
潛水值: 48025 米

頭香

發表於 2023-9-13 01:58 PM|只看該作者

如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

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

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

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

複製代碼

取得每列最後行的位置

點評

tryit244178 這裡找到的：https://officeguide.cc/excel-vba-find-row-column-cell-tutorial-examples/ 發表於 2023-9-13 02:09 PM

如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

使用道具檢舉

返回列表

Archiver|手機版|廣告|聯絡我們|廣告查詢|廠商合作|伊莉

GMT+8, 2025-1-13 05:12 PM

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。