如何快速編輯大量儲存格

本帖最後由藍天麗池於 2016-3-12 11:10 編輯

請問大大，我接券商RTD的資料，我弄好後出現如上圖那樣，之後要在每個儲存格內按F2+Enter才有辦法連接到券商那邊，才會出現數字，但因為資料很多，要如何做才能執行大量且快速的編輯儲存格呢??

上圖有數字的部分是已經執行F2+Enter，公式部分是還沒有執行

Sub 巨集1()
'
' 巨集1 巨集
'

'
ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2330,""BestBidVolume2"")"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2317,""BestBidVolume2"")"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,6505,""BestBidVolume2"")"
Range("E5").Select
ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2412,""BestBidVolume2"")"
Range("E6").Select
ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1303,""BestBidVolume2"")"
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1301,""BestBidVolume2"")"
Range("E8").Select
ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2882,""BestBidVolume2"")"
Range("E9").Select
ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1326,""BestBidVolume2"")"
Range("E10").Select
End Sub

上述程式碼是我用巨集錄製，目前是執行到E10，要如何簡化讓程式碼能夠執行到E900呢??

樓主熱帖

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

2^#

發表於 2016-3-12 22:31 | 顯示全部帖子

本帖最後由藍天麗池於 2016-3-12 22:33 編輯

回復 3# c_c_lai

RTD改.rar (7.27 KB)
因為代碼很多，所以我把它分段之後用"&"連起來，之後複製貼上值，我並非直接改股票代號，所以處理起來才會這樣
變成要編輯後他才會變成數字型態

請教一下C大，我上面說的那個要如何將程式碼簡化處理到E900??

如果C大還是不懂，可以先大概告訴我要如何簡化程式碼嗎??

TOP

藍天麗池