- 帖子
- 2804
- 主題
- 10
- 精華
- 0
- 積分
- 2860
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-5-2
|
Sub TEST()
Dim xR As Range, xF As Range
For Each xR In Range([B3], [B65536].End(xlUp))
Set xF = [J2:N2].Find(xR(1, 2), Lookat:=xlPart)
If Not xF Is Nothing Then xF(60000, 1).End(xlUp)(2, 1) = xR
Next
End Sub |
|
發表於 2016-9-7 13:16
| 