分類  >  編程>VB >

VBA如何求逐行累積

tags:    時間:2013-12-22 15:24:25
VBA怎麼求逐行累積
有千行效果如:
第二列 第三列
1 1
2 3
3 6
4 10
5 15

------解決方案--------------------
VB code
      Dim strRange As String     Dim nRow As Integer           nRow = 1000       '自己判斷看要計算多少行 自己賦值     strRange = "C2:C" & nRow          Range("C2").Select     ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-1]"     Range("C2").Select     Selection.AutoFill Destination:=Range(strRange), Type:=xlFillDefault  
------解決方案--------------------
探討
引用:
哈哈,謝謝,以後專門找你要代碼

------解決方案--------------------
簡單,看這個:
VB code
 Sub Main()     '填20行數據     Call SetFormula(20) End Sub  Sub SetFormula(ByVal n&) ' 入口參數:n ----- 到第幾行截止 ' *** 從第一行開始,填到 B 、C 兩列 *** ' 要填到其它列,自己參考修改     Dim i&     Cells(1, 2).Formula = 1     Cells(1, 3).Formula = 1     For i = 2 To n         Cells(i, 2).Formula = "=R[-1]C+1"         Cells(i, 3).Formula = "=RC[-1]+R[-1]C"     Next End Sub  
------解決方案--------------------
探討
引用:
要自己學會錄製宏,其實很簡單的。
謹遵教誨,你代碼有點不完美,努力修改它啊,第一行的值不是規定的那個,呵呵

------解決方案--------------------
先填充最後一個單元格,反過來自動填充就可以了 (G16:G22)
Range("G22").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C[-1]:RC[-1])"
Range("G22").Select
Selection.AutoFill Destination:=Range("G16:G22"), Type:=xlFillDefault
Range("G16:G22").Select

推薦閱讀文章

Bookmark the permalink ,來源:互聯網