|
翡翠さん、こんにちは
>元データにある小計行を活かし、SUM関数で小計を出すことは可能でしょうか?
>ご教授願います。
>表のサンプルは以下の通りです。
>
>ブロック名 地域名 金額 金額 金額
>A地区 A-1 11,111 44,444 77,777
>A地区 A-2 22,222 55,555 88,888
>A地区 A-3 33,333 66,666 99,999
>A地区計
>B地区 B-1 44,444 77,777 111,110
>B地区 B-2 55,555 88,888 122,221
>B地区 B-3 66,666 99,999 133,332
>B地区 B-4 77,777 111,110 144,443
>B地区計
>C地区 C-1 88,888 122,221 155,554
>C地区 C-2 99,999 133,332 166,665
>C地区 C-3 111,110 144,443 177,776
>C地区 C-4 122,221 155,554 188,887
>C地区計
思いっきりベタですが、なにかの参考になれば・・
Sub test()
Dim MaxRow As Long
Dim i As Long
Dim j As Integer
Dim s As Long
MaxRow = Range("A65536").End(xlUp).Row
s = 0
For i = 2 To MaxRow
If Right(Cells(i, 1).Value, 1) = "計" Then
For j = 3 To 5
Cells(i, j).FormulaR1C1 = "=SUM(R[-1]C:R[-" & s & "]C)"
Next
s = 0
Else
s = s + 1
End If
Next
End Sub
|
|