|
>ただ、なぜか合計の値は全部0になっています。
って、G列を計算しているみたいですが、ご自分で入れた関数式はあっていますか?
まずはそれを確認してください。
どんな関数を入れたいんですか、R1C1形式でなくA1形式で説明してください。
やっている事が良く解かってないけど...。
For ii = 1 To Int(lastRow / 2) + 1
i = i + 1
Cells(i + 1, "D").Select
Cells(i, "D").Select
If Not Cells(i + 1, "D").Value = Cells(i, "D").Value Then
'空白行を入れる
Range(Cells(i + 1, 4), Cells(i + 1, 4)).Select
Selection.EntireRow.Insert Shift:=xlDown
'合計を求める
Dim a As Integer
Dim b, d As Integer
a = 1
b = i
d = b - a + 1
Range(Cells(i + 1, 8), Cells(i + 1, 8)).Select
'ActiveCell.FormulaR1C1 = "=SUM(R[-" & d & "]C[-1]:R[-1]C[-4])"
ActiveCell.FormulaR1C1 = "=SUM(R[-" & d & "]C[-4]:R[-1]C[-4])"
Range(Cells(i + 2, 8), Cells(i + 2, 8)).Select
i = i + 2
a = i
End If
Next
|
|