PTT數位生活區 / Office

[問題] vba 最後一列

看板Office作者 (Beryl Kuo)時間5月前 (2024/07/16 22:52), 5月前編輯推噓2(2推 0噓 3→)
留言5則, 2人參與, 5月前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體:excel 版本:2016 想請教板上神人， 如果要將一個範圍的資料轉換表格（圖一）， 但資料最後一列可能是會改變的， ex:有可能是E10或E200， 要怎麼判斷最後一列並將資料轉換為表格呢？ 附上vba目前寫法如圖二（紅字處是變數） 再勞煩各位大神提點了，感激不盡！ 圖一 https://i.imgur.com/7uckqmT.jpeg
圖二 https://i.imgur.com/d9QFfhI.jpeg
-- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.77.217.254 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1721141522.A.93C.html
推
07/17 05:43, 5月前 , 1F
最簡單的辦法 加個輔助格=COUNTA(A:A) VBA抓他當變數
07/17 05:43, 1F
https://i.imgur.com/aFW5ATA.jpeg
謝謝您的回覆， 那如果將輔助格做在Y10， 紅框處該怎麼修正呢？謝謝您！ ※ 編輯: BerylKuo (42.77.217.254 臺灣), 07/17/2024 09:12:23 ※ 編輯: BerylKuo (42.77.217.254 臺灣), 07/17/2024 09:13:11
推
07/17 09:21, 5月前 , 2F
Maxrow=Range("E1048576").End(xlUp).Row
07/17 09:21, 2F
→
07/17 09:22, 5月前 , 3F
表示Maxrow=從E1048576往上找到第一個數值的位置
07/17 09:22, 3F
→
07/17 09:23, 5月前 , 4F
然後Range("A1:E10")改成
07/17 09:23, 4F
→
07/17 09:24, 5月前 , 5F
Range(Range("A1"),Range("E" & Maxrow))
07/17 09:24, 5F
已解決，真的太感謝了！ ※ 編輯: BerylKuo (42.77.217.254 臺灣), 07/17/2024 12:46:43
‣ 更多 BerylKuo 的文章
文章代碼(AID): #1cbeaIay (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 BerylKuo 的文章
文章代碼(AID): #1cbeaIay (Office)