作者BerylKuo (Beryl Kuo)
看板Office
標題[問題] vba 最後一列
時間Tue Jul 16 22:52:00 2024
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1721141522.A.93C.html
1F:推 sam1234580: 最簡單的辦法 加個輔助格=COUNTA(A:A) VBA抓他當變數07/17 05:43
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
2F:推 tinkens: Maxrow=Range("E1048576").End(xlUp).Row07/17 09:21
3F:→ tinkens: 表示Maxrow=從E1048576往上找到第一個數值的位置07/17 09:22
4F:→ tinkens: 然後Range("A1:E10")改成07/17 09:23
5F:→ tinkens: Range(Range("A1"),Range("E" & Maxrow))07/17 09:24
已解決,真的太感謝了!
※ 編輯: BerylKuo (42.77.217.254 臺灣), 07/17/2024 12:46:43