如何搜尋特定日期 - Excel程式區

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2015-9-8 17:54 | 顯示全部帖子

回復 1# acdx

問題描述太簡略，說不定回覆者打的字都比您多！^^
提出多一些不同實例並模擬出所要的結果看看，
最好上附檔吧！

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2015-9-10 16:29 | 顯示全部帖子

回復 5# acdx

１．逐列處理（隱藏．刪除...等動作），速度必定慢，
　　若遇不得不逐列執行動作，通常要加 Application.ScreenUpdating = False，關閉螢幕更新
２．內建功能必然有其更優化的處理方法，所以，儘量利用內建功能來處理資料
３．篩選有時沒有最簡便的方法，例如本題Ａ欄為〔日期〕格式，若想只針對〔年〕或〔月〕篩選，
　　得使用〔輔助欄公式〕較有效益。
　
以下為使用〔儲存格聯集〕方法，一次性隱藏列，Union 與按 Ctrl 跳選儲存格方法相同，
但最多可聯集多少個儲存格，尚未測試其極限，參考即可：

Sub 篩選()
Dim xR As Range, xU As Range
Cells.EntireRow.Hidden = False
For Each xR In Range([A2], Cells(Rows.Count, 1).End(3))
　　If Year(xR) <> 2009 Then If xU Is Nothing Then Set xU = xR Else Set xU = Union(xU, xR)
Next
If Not xU Is Nothing Then xU.EntireRow.Hidden = True
End Sub

複製代碼

TOP

准提部林