- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
Sub Bluechip()
Dim xR As Range, xF As Range, xE As Range
Sheets("股票主頁").Cells.Clear
Set xE = [股票主頁!A1]
For Each xR In Range([績優股!A1], [績優股!A65536].End(xlUp))
Set xF = [全部號碼!B:B].Find(xR.Value, Lookat:=xlWhole)
If xR = "" Or xF Is Nothing Then GoTo 101
xE.Resize(1, 3) = xF(1, 0).Resize(1, 3).Value
Set xE = xE(2)
101: Next
End Sub
======================== |
|
發表於 2019-7-27 17:47
| 