A列の同文字終了で１行挿入後同文字行の合計値入力

質問

Excel2013ですが表－１のA列同文字が終了したら同シートの表ー２のように１行挿入しD列に"合計"という文字、E,F列にA列の同文字に対しそれぞれに合計値を入れたいのですがVBAコードが解る方よろしくお願いします。

回答No.1

kkkkkm · ベストアンサー

> D列に"合計"という文字、E,F列にA列の同文字に対しそれぞれに合計値

説明と画像で列が違いますけど、コードは画像の方の列に合わせています。
なんか汚いコードですけど・・・一応動きます。

Sub Example()
Dim MyDSum As Long, MyESum As Long, i As Long

Sheets("Sheet1").Activate
Application.ScreenUpdating = False
i = 2
MyDSum = Cells(i, "D").Value
MyESum = Cells(i, "E").Value
Do
If Cells(i, "A").Value = Cells(i + 1, "A").Value Then
MyDSum = MyDSum + Cells(i + 1, "D")
MyESum = MyESum + Cells(i + 1, "E")
Else
Cells(i + 1, "A").EntireRow.Insert
Cells(i + 1, "C").Value = "合計"
Cells(i + 1, "D").Value = MyDSum
Cells(i + 1, "E").Value = MyESum
MyDSum = Cells(i + 2, "D").Value
MyESum = Cells(i + 2, "E").Value
i = i + 1
End If
i = i + 1
Loop Until Cells(i, "A") = ""
Application.ScreenUpdating = True
End Sub

お礼

難なくちょっとした応用でクリアでき非常に助かりましたありがとう御座います。