- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¦^´_ 1# agwhk - Sub test()
- Dim firstPos As Long, currRow As Long, lastrow As Long
- Dim startRng As Range
-
- Set startRng = ActiveSheet.Range("B3")
-
- lastrow = Range("B65536").End(xlUp).Row + 1
- currRow = 0
-
- Do
- With startRng
- If UCase(Left(.Offset(currRow, 0).Offset(0, -1), 8)) = "SUBTOTAL" Then
- .Offset(currRow, 0).Value = Application.WorksheetFunction.Sum(Range(.Offset(firstPos, 0), .Offset(currRow - 1, 0)))
- firstPos = currRow + 1
- End If
- End With
- currRow = currRow + 1
-
- Loop While startRng.Offset(currRow).Row <= lastrow
- End Sub
½Æ»s¥N½X |
|