[繁]格林童話變奏曲03	[繁]魔王學院的不適任	(4月新番)[繁]轉生貴
[繁]我的英雄學院 Mem	[繁中]霹靂英雄戰紀之	[簡] 為美好的世界獻

查看: 1014|回復: 1

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

zbc231

高級幼兒生(30/200)

Rank: 1

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

電梯直達

樓主

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

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

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

如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

tryit244178

尊貴會員

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

帖子: 155
積分: 1287 點
潛水值: 47855 米

頭香

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

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

使用道具檢舉

返回列表

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

GMT+8, 2024-4-28 03:34 AM

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

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