(若是和其他不同软件互动之问题 请记得一并填写)
软件: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
是哪里出了问题吗? 或是有其他方法可行?

A520有空白压 就会停再A520 没问题的但你的写法有错唷另外一种则是遇到有隐藏你想要最后一列Lrow=Range("A" & Rows.Count).End(3).Row再用if判断Lrow 多少就好

您的资料应该有转换成表格，表格状态下Carl+下会优先在表格范围内，但目前想不到用什么VBA解决您的问题

if Range("A1048576").End(xlUp).Row=1 then

我想到一个方式：把你的资料表做成枢纽分析表，对枢纽表作筛选，如果A2没值就提醒

https://i.imgur.com/2UKXt5c.jpg目前只想到用公式+变动处理，但筛选选完还是要点一下任一储存格才会执行