請教一下VBA裡要如何複製區間內有值的區域?

想請教一下,我有一工作簿內的程序有一段是會尋找A欄位(日期橺)裡的資料後,然後找到對應日後,將其右方的欄位至其下方的列數全部複製後貼到另一工作表裡

下為我原先的語法
Columns("A").Select
Selection.Find(What:=recDate, _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
MatchByte:=False, _
SearchFormat:=False).Activate

Range(ActiveCell.Offset(, 1), ActiveCell.Offset(, 4).End(xlDown)).Copy

.....

然今日我發現一個問題,假設今日為2022/10/7(五)
然後我要找的日子是10/7之前的日子
例如:2022/10/3(一)如此的話.在copy的那列陳述式裡
會很順利的將10/3~10/7這段區域都複製起來,然後再切到另一工作表後做貼入的動作..

但今日若假設剛好是2022/10/7(五),然後我要找的日子也是2022/10/7(五)時,
則copy的那列就會變成含2022/10/7日的那列,以及下方的空白所有列全部一塊複製的貼入至另一工作表了..TT

因我只想在遇到只有一列時,或只想抓取我要的日子如10/3日,然後連同表格10/3日以下有數據的資料都複製,無數據的地方就排除,這...不知這語法要如何撰寫?
印像中以前有看過,好像是special什麼的...但久了要找時卻找不到了..
印像中好像是specialcells什麼的,語法也不太會用..
拜託可以的話,舉幾個例給我,謝謝各位.
2022-10-10 3:18 發佈
文章關鍵字 VBA 區域 區間
內文搜尋
X
評分
評分
複製連結
Mobile01提醒您
您目前瀏覽的是行動版網頁
是否切換到電腦版網頁呢?