作者bank89902595 (阿虎几)
看板Office
标题[问题] VBA 筛选後查无资料 需提醒
时间Sat Jan 29 17:14:14 2022
(若是和其他不同软体互动之问题 请记得一并填写)
软体:Excel
版本:365
我想要VBA做筛选後,如果查无资料要做提醒
目前我工作表的资料最後一笔到第520列
我的写法如下
If Range("A1").End(xlDown).Row = Range("A" & Rows.Count).Row Then
MsgBox "此日期范围，查无订单"
End if
照理说查无资料时: Range("A1").End(xlDown).Row 这个位置会是 A1048576
为什麽我的档案是到A520，我手动到工作表选取A1然後Crl+下 真的就只到A520
https://imgur.com/a/QoliSZ6
我上网看教学，那位老师也是Crl+下位置却会到A1048576
是哪里出了问题吗? 或是有其他方法可行?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.236.52.120 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1643447656.A.0FA.html
1F：→ waiter337: A520有空白压 就会停再A520 没问题的01/30 01:22
2F：→ waiter337: 但你的写法有错唷01/30 01:23
3F：→ waiter337: 另外一种则是遇到有隐藏01/30 01:24
4F：→ waiter337: 你想要最後一列01/30 01:26
5F：→ waiter337: Lrow=Range("A" & Rows.Count).End(3).Row01/30 01:27
6F：→ waiter337: 再用if判断Lrow 多少就好01/30 01:27
一直到A520列都是有字串没有空白
一般情况
A1-A520都有字串
选择A1 然後 Crl+下 会停在A520
另一个情况
利用VBA筛选
如果查无资料就会显示我内文贴图那样
A1到A520都会被筛选排除掉
为什麽有人可以在此情况
选择A1然後 Crl+下 可以到达A1048576
我确不能？
※ 编辑: bank89902595 (27.242.192.121 台湾), 01/30/2022 01:59:14
7F：推 gunit01: 您的资料应该有转换成表格，表格状态下Carl+下会优先在 01/30 09:38
8F：→ gunit01: 表格范围内，但目前想不到用什麽VBA解决您的问题 01/30 09:38
原来是表格的关系
看来是无解了
9F：→ Iories: if Range("A1048576").End(xlUp).Row=1 then 01/30 11:52
向上也会停在A520
※ 编辑: bank89902595 (115.165.192.143 台湾), 01/31/2022 10:47:54
10F：推 gunit01: 我想到一个方式：把你的资料表做成枢纽分析表，对枢纽表 01/31 15:07
11F：→ gunit01: 作筛选，如果A2没值就提醒 01/31 15:07
13F：→ rafaiero: 目前只想到用公式+变动处理，但筛选选完还是要点一下任 02/01 10:49
14F：→ rafaiero: 一储存格才会执行 02/01 10:49