首頁 辦公利器Excel文書處理Excel VBA 【EXCEL VBA】-自動填入符合條件區域的資料列

【EXCEL VBA】-自動填入符合條件區域的資料列

by PartyLin
已發布 最後更新日期 0 評論

問:

每天會去特定網頁複製資料…然後想要記錄部分資料做其他運算…
籃框區域是複製的資料
先比對日期..如果日期符合…就複製欄框內的資料
我的問題是…當我更新新的資料時…日期就更新了…如何保存舊資料不倍更新日期影響??
我知道可以將原本舊資料複製純文字貼上….就怕哪次忘了做這動作…也太麻煩了

A:

將藍色區域資料以日期為篩選條件

自動填入底下符合條件的資料列

Sub Find1() '在某列查找
On Error GoTo 錯誤


日期 = Range("C2") '篩選條件

B = Range("C8:C65536").Find(日期).Row '填入的資料列位置
If Range("C" & B) = 日期 Then '底下資料符合條件才執行


Range("D" & B & ":I" & B) = Range("D5:I5").Value

Else

End If

Exit Sub

錯誤:
MsgBox ("無符合條件資料列")

End Sub 

 

發表留言

本網站放置cookies,務求為您提供最佳的網上瀏覽體驗。 同意 閱讀更多