- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2013-9-15 15:18 編輯
回復 1# HSIEN6001 - Sub Ex()
- Dim Rng As Range, AR(), AB(), I As Integer
- AR = Array("台灣50", "中100", "FB上証")
- AB = Array("'0050", "'0051", "'006205")
- On Error Resume Next '找不到的資料跳過
- With Sheets("Sheet1").Range("C:C")
- For I = 0 To UBound(AR)
- .Cells.Replace AR(I), "=ZZZ", xlWhole
- With .SpecialCells(xlCellTypeFormulas, xlErrors)
- .Cells = AR(I)
- .Cells.Offset(, -1) = AB(I)
- End With
- Next
- End With
- End Sub
|
|
發表於 2013-9-15 15:17
| 