返回列表下一主題上一主題發帖

請問要如何簡化程式碼??

藍天麗池

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

請問要如何簡化程式碼??

以下程式碼是我用巨集錄製的，只錄到E10，我要將以下巨集執行到E900，但又不可能一直複製下去，請教大大以下程式碼要如何簡化，讓他可以執行到E900

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