(已解決)如何用搜尋找資料後複製該位置以下的資料?
- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 Hsieh
仔細看過後板主的方式與另外一位大大方式不同(處理方式)
如果說想要向另一位大 ...
freeffly 發表於 2012-2-23 09:09 
樓主你用的SHEET.Name是民國+年~
所以H大大用sh = Format(a, "emm")的方式~ 來判斷你的SHEET名稱
然後再進去那個SHEET中撈取資料 |
|
|
學習才能提升自己
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
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 就可以除錯 |
|
|
|
|
|
|
|
- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 121
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-5-19
       
|
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
|
|
|
學海無涯_不恥下問
|
|
|
|
|
- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
|
14#
發表於 2012-2-23 13:18
| 只看該作者
回復 10# hugh0620
這個我有發現
你們倆各的處理方式不一樣
都是學習的方式 |
|
|
字典兩各字 還真難理解
|
|
|
|
|
- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
|
15#
發表於 2012-2-23 13:26
| 只看該作者
回復 13# Hsieh
謝謝版主
有想到用resize可是沒試出來
原來是差在.value |
|
|
字典兩各字 還真難理解
|
|
|
|
|
