- 帖子
- 2812
- 主題
- 10
- 精華
- 0
- 積分
- 2868
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-6-3
|
Ａ欄放編號，其它不用，直接在Ｅ欄下公式：
Sub TEST()
With Range("E2:E" & [A65536].End(xlUp).Row)
.Formula = "=""=RTD(""""money.excel"""", ,""&A2&"",""""BestAskVolume5"""")"""
.Value = .Value
'.Replace "=", "=", Lookat:=xlPart '如果還無法轉成DDE公式，再加這一行
End With
End Sub
若其它欄位的公式參數或文字不相同，可上傳較詳細內容∼∼∼
|
|
發表於 2016-3-13 11:57
| 