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

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

2^#

發表於 2012-2-22 17:36 | 顯示全部帖子

回復 2# hugh0620

太厲害了
  幾各問題問依下
1.
  If Target.Column = 3 And Target.Row = 1 Then
這一句可以改成 Target.Address = "$C$1" 嗎

2.第8行為什麼要連D也處理?
3.
E.Index  這個的意思是?

字典兩各字還真難理解

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

3^#

發表於 2012-2-23 08:36 | 顯示全部帖子

回復 4# hugh0620

恩謝謝回覆
我也還有很多要學

字典兩各字還真難理解

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2012-2-23 08:41 | 顯示全部帖子

回復 5# Hsieh

感謝版主
這個方式更簡潔
速度感覺更快些
不過有一些不懂
消化後再提問

字典兩各字還真難理解

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

5^#

發表於 2012-2-23 09:09 | 顯示全部帖子

回復 5# Hsieh

仔細看過後板主的方式與另外一位大大方式不同(處理方式)
如果說想要向另一位大大那樣抓兩欄要怎麼改

Application.EnableEvents = False 在這裡的用處是? 要讓什麼事件不發生嗎?
sh = Format(a, "emm") emm有特殊規則嗎看到版主使用才知道有這種方式

字典兩各字還真難理解

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

6^#

發表於 2012-2-23 09:29 | 顯示全部帖子

回復 4# hugh0620

            剛試了一下這裡還可以改這樣

            Sheet1.Cells(N, 1).Resize(, 4) = Array( _
            E.Cells(i, 1), _
            E.Cells(i, 2), _
            E.Cells(i, K), _
            E.Cells(i, K).Offset(0, 1))

字典兩各字還真難理解