[問題] VBA 篩選後查無資料 需提醒

[bank89902595 (阿虎幾)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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://www.ptt.cc/bbs/Office/M.1643447656.A.0FA.html
→ waiter337: A520有空白壓 就會停再A520 沒問題的
→ waiter337: 但你的寫法有錯唷
→ waiter337: 另外一種則是遇到有隱藏
→ waiter337: 你想要最後一列
→ waiter337: Lrow=Range("A" & Rows.Count).End(3).Row
→ waiter337: 再用if判斷Lrow 多少就好
一直到A520列都是有字串沒有空白

一般情況
A1-A520都有字串
選擇A1 然後 Crl+下 會停在A520

另一個情況
利用VBA篩選
如果查無資料就會顯示我內文貼圖那樣
A1到A520都會被篩選排除掉
為什麼有人可以在此情況
選擇A1然後 Crl+下 可以到達A1048576
我確不能？



※ 編輯: bank89902595 (27.242.192.121 臺灣), 01/30/2022 01:59:14
推 gunit01: 您的資料應該有轉換成表格，表格狀態下Carl+下會優先在
→ gunit01: 表格範圍內，但目前想不到用什麼VBA解決您的問題
原來是表格的關係
看來是無解了
→ Iories: if Range("A1048576").End(xlUp).Row=1 then
向上也會停在A520
※ 編輯: bank89902595 (115.165.192.143 臺灣), 01/31/2022 10:47:54
推 gunit01: 我想到一個方式：把你的資料表做成樞紐分析表，對樞紐表
→ gunit01: 作篩選，如果A2沒值就提醒
→ rafaiero:  https://i.imgur.com/2UKXt5c.jpg
→ rafaiero: 目前只想到用公式+變動處理，但篩選選完還是要點一下任
→ rafaiero: 一儲存格才會執行