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