|
ご返信どうもありがとうございました。お陰で順調に動きました。
ただ、なぜか合計の値は全部0になっています。
私の書いたプログラムは以下の通りです。どこが間違っているか教えていただけますでしょうか。
'1行目からシートの最終行まで処理を繰り返す
For i = 1 To lastRow
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[-1])"
Range(Cells(i + 2, 8), Cells(i + 2, 8)).Select
i = i + 2
a = i
End If
Next
|
|