エクセルで、同じ項目が続く場合

例えば、セルＡ1～Ａ5に「北海道」という文字が入っていて、Ｂ1,Ｃ2,Ｄ3,Ｅ4,Ｆ5にそれぞれ数値が入っている場合。「北海道」という列を一行にして、Ｇ1にＢ1～Ｆ5の合計を入れたいのですが・・・ 簡単な方法はないでしょうか？わかりにくい質問ですみません。
初心者で、よくわかりません。お願いします。

No.7 ベストアンサー 回答者： nishi6 回答日時： 2002/11/27 10:36

表が次のようになっているとします。

　　　　Ａ　　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ
　１　北海道　　１
　２　北海道　　　　　２
　３　北海道　　　　　　　　３
　４　北海道　　　　　　　　　　　４
　５　北海道　　　　　　　　　　　　　　５

C1に =SUM(C2:C5)　、D1～F1にコピー
G1に =SUM(B1:F1)
２～５行目を非表示で質問の通りになりますが・・・・


少し拡張（想像）してみると、

　　　　Ａ　　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ
　１　府県　　値１　値２　値３　値４　値５　合計
　２　北海道　　１　　　　　　　　　　　　　　１
　３　北海道　　　　　２　　　　　　　　　　　２
　４　北海道　　　　　　　　３　　　　　　　　３
　５　北海道　　　　　　　　　　　４　　　　　４
　６　北海道　　　　　　　　　　　　　　５　　５
　７　青森　　　７　　　　　　　　　　　　　　７
　８　青森　　　　　　３　　　　　　　　　　　３

上の表のA～F列の２行目以下があったとします。
先頭に１行挿入して表題を付けます。Ｇ列２行目に =SUM(B2:F2) としてデータ数分下にコピーします。

データ部分（例えばA1）を選択した状態で、
　データ→集計を実行
　　　　　　グループの基準＝府県
　　　　　　集計の方法　　＝合計
　　　　　　集計するフィールド＝値１～値５、合計にチェック
　　　　　　集計行をデータの下に挿入するにチェック
　　　　　→Ｏｋ

これで集計が実行され、左のレベルのボタン『２』を押すと

　　　　Ａ　　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ
　１　府県　　値１　値２　値３　値４　値５　合計
　７　北海道　　１　　２　　３　　４　　５　１５
１０　青森　　　７　　３　　　　　　　　　　１０
１１　総計　　　８　　５　　３　　４　　５　２５

が表示されるはずです。後半部分は状況を想像して書いています。ご参考に。

この回答へのお礼

ありがとうございます。「集計」で教えていただいたようにできました。
実は「北海道」の項目内にさらに分類があり、どうしようかと思っていたのですが地道にやりました。

なんとか完成しました。
皆様、どうもありがとうございました！！

お礼日時：2002/12/19 12:10

No.6 回答者： suteneko 回答日時： 2002/11/26 18:32

では、

1.の式を
=SUM(C2:F5)+B1に変更し
3.として
Ｃ1のセルに=C2,D1に=D3　・・・と言う風に表示したい数値のアドレスを入れてあげれば・・・？
一応、形にはなるかしら？
ちょっと、3.がめんどくさいですけど・・・。
この例くらいなら何とかなるでしょうけど件数が増えると～～。

なんか、上手な手がないか考えてみます・・・

この回答へのお礼

ありがとうございます。やりたいことは、そういうことです。
ただ、おっしゃる通り件数が数千になってしまったので・・・。マニュアルなどで探しているのですが、どんぴしゃのページが見つかりません。

もう少し続けさせてください。

お礼日時：2002/11/27 10:56

No.5 回答者： imogasi 回答日時： 2002/11/26 18:08

VBAで良ければ

Sub test01()
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
k = ""
l = 1
s = 2
d = sh1.Range("a2").CurrentRegion.Rows.Count
' MsgBox d
For i = s To d + s - 1
k = sh1.Cells(i, 1)
For j = 2 To 8 'データのある列を探す
If sh1.Cells(i, j) <> 0 Then Exit For
Next j
' MsgBox j
If k <> km Then 'Ａ列内容が直前と変ったか
l = l + 1 'シート２で次行を指す
sh2.Cells(l, 1) = sh1.Cells(i, 1) 'シート２A列
End If
sh2.Cells(l, j) = sh2.Cells(l, j) + _
sh1.Cells(i, j) 'シート２へ加算
km = sh1.Cells(i, 1)
Next i
End Sub
テストデータ。()内はデータ入力のセルの位置
a(a2)1(b2)
a2(c3)
a3(d4)
a4(e5)
a3(b6)
b1(b7)
b2(c8)
b3(d9)
b4(e10)
c2(c11)
c4(e12)
結果
a4234
b1234
c24
（制約）改良も簡単ですが、上記では
・a,bは集まって出てくるものとする。
・Ｈ列（＝８）までのデータを対象としている。
・一番左の列だけ足している。
（実行）ワークシートで
・ＡＬＴ＋Ｆ１１（ＶＢＥ画面）
・ＡＬＴ＋ＩとＭ（標準モジュール挿入）
・上記コードを貼り付け
・Ｆ５（実行）

No.4 回答者： HELL_MET 回答日時： 2002/11/26 17:03

意味を取り違えているかもしれませんが・・・

＞「北海道」という列を一行にして
ここの意味が良く分かりませんが・・・
「北海道の合計列をを作成する」と解釈し、上記の条件で答えを求めると。

まず、「北海道」の合計の列「北海道合計」を作成しその列の合計を
作成します。
A6にSUMIF($A:$A,"北海道",B1:B5)と書き、これをコピーします。
（セルの右下でマウスの矢印が＋になったところで右にドラッグします）
これで６行は北海道の合計行になります。
ここでＧ６にＳＵＭ関数で合計値を算出すれば一応ご要望のことは出来ると思います。
自分でも試してみましたので結果は出ると思います。

No.3 回答者： suteneko 回答日時： 2002/11/26 16:49

1.Ｇ１に=SUM(B1:F5)という式を入れ、

2.２～５行目を表示しないにするのではだめですか？
1.はＧ5をクリックしてからツールバーの＝をクリックしてＳＵＭ関数うをクリックし、計算させたい範囲を選択するか、直接指揮をＧ1に書き込む。でＯＫです。
2.は隠したい行を選択し、書式→行→表示しないでＯＫです。
書式→行→再表示で隠した行が再表示されます。
いかがでしょう？(^^)

この回答への補足

説明不足でした。。。一行にした時に、Ｂ1からＦ1にも数値（Ｂ1からＦ5に入っていた）を入れたいのですが。

補足日時：2002/11/26 17:04

No.2 回答者： taranko 回答日時： 2002/11/26 16:49

範囲を指定して、データ→集計

これでいかがでしょう。

No.1 回答者： taknt 回答日時： 2002/11/26 16:48

セルＡ1～Ａ5をセルの結合として 一つのセルにすることは できますよ。