エクセルで合計欄を結合し、左の複数セルの合計を算出

添付画像のようにＣ列を合計欄として結合し、
結合したＣ列に隣り合う、Ｂ列の合計を出す場合の操作方法を教えてください。

No.3 回答者： tom04 回答日時： 2013/11/18 21:01

こんばんは！

実際のデータはもっとたくさんの行数があるのですよね？

そうなると結合セルの行数が違う場合、オートフィルではできませんので
VBAになってしまいますが、一例です。

C列の結合行数はA列と一致しているという前提です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub 合計() 'この行から
Dim i As Long, k As Long, endRow As Long
endRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
Range("A:A").UnMerge
For i = 2 To endRow
If Cells(i, "A") = "" Then
Cells(i, "A") = Cells(i - 1, "A")
End If
Next i
For i = 2 To endRow
Cells(i, "C") = WorksheetFunction.SumIf(Range("A:A"), Cells(i, "A"), Range("B:B"))
Next i
Application.DisplayAlerts = False
For i = 2 To endRow
If Cells(i, "A") = Cells(i - 1, "A") Then
k = i
Do While Cells(k, "A") = Cells(i, "A")
k = k + 1
Loop
Range(Cells(i - 1, "A"), Cells(k - 1, "A")).Merge
i = k
End If
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

この回答への補足

同じような表で、Ｂ列とＣ列に数字があり、Ｂ列とＣ列の合計を結合セルのＤ列に表示させたい場合は、どのようなマクロになるのでしょうか。

補足日時：2013/12/05 08:54

この回答へのお礼

ご回答ありがとうございます。
簡単に合計を出すことができました。

お礼日時：2013/12/05 08:52

No.2 回答者： acha51 回答日時： 2013/11/18 20:03

C2に　=sum(B2:B4)

C5に　=sum(B5:B6)
C7に　=sum(B7:B11)

のように式を記入すればよいでしょう

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/12/05 09:01

No.1 回答者： ducakoro 回答日時： 2013/11/18 19:44

＝SUM(B2:B4)

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/12/05 09:01