返回列表 上一主題 發帖

如何快速編輯大量儲存格

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2016-3-13 11:57 | 顯示全部帖子
Ａ欄放編號，其它不用，直接在Ｅ欄下公式：

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
　
　
若其它欄位的公式參數或文字不相同，可上傳較詳細內容∼∼∼
　

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題