返回列表 上一主題 發帖

如何設定自動加總vba程式

如何設定自動加總vba程式

請教如下圖所示vba程式怎樣寫?
謝謝 !!!

回復 1# agwhk
  1.     Sub test()
  2. Dim firstPos As Long, currRow As Long, lastrow As Long
  3. Dim startRng As Range

  4.    
  5.     Set startRng = ActiveSheet.Range("B3")
  6.    
  7.     lastrow = Range("B65536").End(xlUp).Row + 1
  8.     currRow = 0
  9.    
  10.     Do
  11.         With startRng
  12.             If UCase(Left(.Offset(currRow, 0).Offset(0, -1), 8)) = "SUBTOTAL" Then
  13.                 .Offset(currRow, 0).Value = Application.WorksheetFunction.Sum(Range(.Offset(firstPos, 0), .Offset(currRow - 1, 0)))
  14.                 firstPos = currRow + 1
  15.             End If
  16.         End With
  17.         currRow = currRow + 1
  18.         
  19.     Loop While startRng.Offset(currRow).Row <= lastrow

  20. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

謝謝 kimbal 大哥 , 正是我須要的程式非常感謝!!!

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題