2025年3月『為美好的	[繁]嘆氣的亡靈想隱退	[繁]在地下城尋求邂逅
[繁]地。-關於地球的	[BD繁]名偵探柯南劇	追狗狗結果從3樓摔落

查看: 3017|回復: 1

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

zbc231

高級幼兒生(30/200)

Rank: 1

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

電梯直達

樓主

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

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

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

若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

使用道具檢舉

tryit244178

尊貴會員

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

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

頭香

發表於 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

複製代碼

取得每列最後行的位置

點評

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

回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

使用道具檢舉

返回列表

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

GMT+8, 2024-12-26 01:53 PM

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

		自動登錄	找回密碼或安全提問
密碼			註冊