エクセルの条件付き合計の出し方

質問

たとえば下のようにＡＢＣ列がありＢ列に数字があるときＣ３の*にはＡ１とＡ２の合計を、Ｃ５にはＡ２とＡ４の合計を、Ｃ６にはＡ２とＡ４の合計Ｃ９にはＡ７とＡ８の合計を出す方法すなわち、Ｂに数字があるとき、Ａ列の１行上と２行上を合計する式お願いします。　　
　　Ａ　Ｂ　Ｃ　　
１　１　　　　　　
２　３　　　　　　
３　７　２　*　　
４　６
５　９　３　*
６　４　７　*
７　６
８　８
９　５　６　*

回答No.3

nishi6 · ベストアンサー

Ａ　Ｂ　 Ｃ　　Ｄ　　
１　１　　　　　　式１
２　３　　　式３　式２
３　７　２　↓　　↓
４　６　　　↓　　↓
５　９　３　↓　　↓
６　４　７　↓　　↓
７　６　　　↓　　↓
８　８　　　↓　　↓
９　５　６　↓　　↓

問題は、Ｂ列が未入力になっている指定セルの上２つのＡ列セルの合計を求める　としました。

Ｄ列を補助に使います。Ｃ１には式は入力しません。
式１：=IF(B1="",1,"")
式２：=IF(B2="",COUNT($D$1:D1)+1,"")
式３：=IF(B2<>"",INDEX(A:A,MATCH(LARGE($D$1:D1,1),D:D),)+INDEX(A:A,MATCH(LARGE($D$1:D1,2),D:D),),"")

として、式２、式３は下方向にコピーします。

また、ユーザ定義関数を作ってみると下のようになりました。
Ｃ３には、=cellsTTL(B3)　のようにして使います。これを上下にコピーします。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。
出てきたコードウインドウに下記マクロをコピーして貼り付けます。

Function cellsTTL(Rng As Range)
　　Dim rw As Long　　　　　　　 '// 行数
　　Dim TTLcot As Integer　　　　'// セルのカウンタ
　　Dim TTL As Variant　　　　　 '// ２つのセルの計

　　'// Ｂ列が未入力の上２つのセルの合計を求める
　　If Rng <> "" Then
　　　　For rw = Rng.Row - 1 To 1 Step -1
　　　　　　If Cells(rw, 2) = "" Then
　　　　　　　　If TTLcot = 2 Then
　　　　　　　　　　Exit For
　　　　　　　　Else
　　　　　　　　　　TTL = TTL + Cells(rw, 1)
　　　　　　　　　　TTLcot = TTLcot + 1
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　Else
　　　　TTL = ""
　　End If

　　cellsTTL = TTL
End Function

お礼

ありがとうございます。最初のＩＦ文３式でくむ方法で答えが出ました。中年初心者だとユーザー定義関数とか良くわからないのです、これから勉強してnishi6さんのように人に教えられるよにがんばってみます。

回答No.2

imogasi

これくらいの問題になると、関数式では難しいと思いVBAで組んでみました。
Sub test02()
d = Range("A1").CurrentRegion.Rows.Count
For i = 1 To d
If Cells(i, "B") = "" Then
Else
t = 0: n = 0
For j = i - 1 To 1 Step -1
If Cells(j, "B") <> "" Then
Else
t = t + Cells(j, "A")
n = n + 1
If n = 2 Then
Cells(i, "c") = t
GoTo p01
End If
End If
Next j
p01:
End If
Next i
End Sub
（テストデータ）
A1:B9
（A列）（B列）（C列）
1 　　
3
7 2 4
6
9 3 9
4 7 9
6
8
5 6 14
（結果）上記C列の通り。
テストデータを沢山のケースを作りにくいので、上記しかテスト出来てませんが、本番データの一部で十分テストをしてください。

お礼

すばらしい回答ありがとうございました。
ただ、私の勉強不足でＶＢＡが解りません。もう少し勉強してから確認してみようとおもいます。

回答No.1

edomin

単純に、Ｃ３に
「=IF(B3<>0,A1+A2,"")」
これを、Ｃ４以降にコピーすればＯＫ？

補足

すみませんでした、私の質問記入方法が良くなかったのかもしれません。Ｂ列に数字が入っているときはそのＡ列の数字は使わないでひとつ上の数字を加えるということで、つねにつながったセルを加算するわけではないのです。