作者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/cn.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