マクロ出来る方教えてください。写真はB/Aです。B列からE列まで下記のような値が入っており、各日(2日分)の合計数をF列に入力し、結合したいのですが、可能でしょうか？日付と台数が入っているセルを参照する必要があると思いますが、どうすれば良いのかわからず。よろしくお願いします。

既に回答は出ていますが、合計セルは数値を中央に配置するようにしました。

元の画像が小さくて文字がよく見えませんので、添付画像の項目名や数値は違っているかもしれません。





Dim r As Long, sr As Long

Dim gt As Long



Sub test()

Dim rmax As Long

rmax = Cells(Rows.Count, 4).End(xlUp).Row

For r = 3 To rmax

If Cells(r, 5).Value \u0026lt;\u0026gt; \u0026quot;\u0026quot; Then

gt = Cells(r, 4).Value

sr = r

r = r + 1

Do Until Cells(r, 5).Value \u0026lt;\u0026gt; \u0026quot;\u0026quot; Or r \u0026gt; rmax

gt = gt + Cells(r, 4).Value

r = r + 1

Loop

grtn

r = r - 1

End If

Next r

grtn

End Sub



Sub grtn()

Cells(sr, 6).Value = gt

With Range(Cells(sr, 6), Cells(r - 1, 6))

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.MergeCells = True

End With

End Sub