作者ljuber (美少妇与女儿同学的故事)
看板Office
标题[算表] vba如何取看的见资料的最後一列?
时间Tue Jun 13 13:54:23 2017
软体:excel
版本:2007
如果A1:A10
其中A1:A5有资料
理论上用range("A1").end(xldown).row
会得到5
但是总是得到10
发现似乎空格不是真的完全空白
这种状况vba要怎麽写?
档案
https://drive.google.com/open?id=0BwCgrQhGgaw7X0xIS2kzWkNIVDA
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.77
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1497333266.A.A4C.html
※ 编辑: ljuber (60.250.67.77), 06/13/2017 13:54:49
※ 编辑: ljuber (60.250.67.77), 06/13/2017 14:06:34
1F:→ soyoso: 可改以range.find 搜寻"*",after为储存格a1 06/13 14:24
2F:→ soyoso: searchdirection为previous 06/13 14:25
MsgBox Range("A1:A100").Find(What:="*", After:=Range("A1"), _
LookAt:=xlWhole, SearchDirection:=Previous, _
SearchOrder:=xlByRows, MatchCase:=True, _
SearchFormat:=True).Row
这样会传回2
不知道要怎麽改@@
※ 编辑: ljuber (60.250.67.77), 06/13/2017 14:44:13
3F:→ soyoso: xlPrevious 06/13 14:48
4F:→ ljuber: 解决了!!感谢S大 06/13 15:20
5F:→ ljuber: 想问下S大 若是针对有资料的range select的话 要怎麽改 06/14 16:14
6F:→ soyoso: 以档案来看原po是select的情况为? 06/14 16:38
7F:→ ljuber: 应该说是copy才对... 06/14 16:47
8F:→ soyoso: 如以栏来复制的话,可用range连接储存格字串位置,或以 06/14 17:14
9F:→ soyoso: range.resize来调整范围,要偏移以range.offset 06/14 17:16
10F:→ ljuber: 感谢s大我成功了 06/15 21:01