(已解決)如何用搜尋找資料後複製該位置以下的資料?

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

11^# 跳轉到 »

發表於 2012-2-23 09:37 | 只看該作者

回復 Hsieh

仔細看過後板主的方式與另外一位大大方式不同(處理方式)
如果說想要向另一位大 ...
freeffly 發表於 2012-2-23 09:09

樓主你用的SHEET.Name是民國+年~
所以H大大用sh = Format(a, "emm")的方式~ 來判斷你的SHEET名稱
然後再進去那個SHEET中撈取資料

學習才能提升自己

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2012-2-23 09:52 | 只看該作者

回復 10# hugh0620

r = Application.Match(a, .[A:A], 0)
If IsNumeric(r) And Not c Is Nothing Then a.Offset(, 2) = .Cells(r, c.Column) Else a.Offset(, 2) = ""

複製代碼

Match函數 :找到時傳回數字, 找不到時傳回 "#N/A" (錯誤值)
改成 If Not IsError(r) And Not c Is Nothing Then 就可以除錯

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 47
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-23

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2012-2-23 10:53 | 只看該作者

回復 8# freeffly

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
Application.EnableEvents = False
Range("A1").CurrentRegion.Offset(1, 2) = ""
For Each a In Range("A2", [A2].End(xlDown))
sh = Format(a, "emm")
For Each sht In Sheets
If sht.Name = sh Then
With sht
Set c = .Rows(1).Find([C1], lookat:=xlWhole)
r = Application.Match(a, .[A:A], 0)
If IsNumeric(r) And Not c Is Nothing Then a.Offset(, 2).Resize(, 2).Value = .Cells(r, c.Column).Resize(, 2).Value
End With
End If
Next
Next
End If
Application.EnableEvents = True
End Sub