|
Dim 行 As Long, 列 As Integer, 合計数 As Long
Dim 合計行() As Integer, 合計列() As Integer
With Range("C9")
合計数 = 0
For 列 = .Column To .SpecialCells(xlLastCell).Column
If Cells(7, 列).Value Like "*TOTAL" Then
For 行 = .Row To .SpecialCells(xlLastCell).Row - 1
Cells(行, 列).FormulaR1C1 = "=SUM(RC[-" & 合計数 & "]:RC[-1])"
Next
合計数 = 0
Else
合計数 = 合計数 + 1
End If
Next
列 = .SpecialCells(xlLastCell).Column
If Cells(7, 列).Value Like "G.TOTAL" Then
For 行 = .Row To .SpecialCells(xlLastCell).Row - 1
Cells(行, 列).FormulaR1C1 = "=SUM(RC[-" & 列 - .Column & "]:RC[-1])/2"
Next
End If
合計数 = 0
For 行 = .Row To .SpecialCells(xlLastCell).Row
If Cells(行, 1).Value Like "*TOTAL" Then
For 列 = .Column To .SpecialCells(xlLastCell).Column - 1
Cells(行, 列).FormulaR1C1 = "=SUM(R[-" & 合計数 & "]C:R[-1]C)"
Next
合計数 = 0
Else
合計数 = 合計数 + 1
End If
Next
行 = .SpecialCells(xlLastCell).Row
If Cells(行, 1).Value Like "G.TOTAL" Then
For 列 = .Column To .SpecialCells(xlLastCell).Column
Cells(行, 列).FormulaR1C1 = "=SUM(R[-" & 行 - .Row & "]C:R[-1]C)/2"
Next
End If
End With
End Sub
と自分なりがんばったのですが、G.TOTAL(合計)に計算式が入りません。
小計は*TOTALでなんとか拾っているようなんですが・・・
|
|