[[20040917162804]]　『集計』（へみ）　ページの最後に飛ぶ

『集計』（へみ）

 お世話になってます。
 集計の仕方なんですけど、
　
      Ａ　　　　Ｂ　　　　Ｃ　　　Ｄ　　　Ｅ　　　Ｆ　　　Ｇ
 １　会社名　　評価基準　評価１　評価２　評価３　評価４　評価５　　　
 ２  Ａ社　　　　○　　　　１　　　８　　　２　　　３　　　０
 ３　   　　　　 △　　　　２　　　１　　　０　　　２　　　１
 ４　　     　　 ×　　　　１　　　１　　　０　　　１　　　１
 ５  ＠Ａ社　　　○　　　　２　　　３　　　１　　　０　　　２
 ６ 　　　　　　 △　　　　２　　　１　　　０　　　４　　　１
 ７　 　　　　　 ×　　　　０　　　２　　　１　　　２　　　４
 ８  ＊Ａ社　　　○　　　　２　　　０　　　０　　　１　　　２
 ９　 　　　　　 △　　　　２　　　０　　　１　　　０　　　１
 10　　 　　　　 ×　　　　１　　　０　　　２　　　０　　　０
 11  Ｂ社　　　　○　　　　２　　　３　　　１　　　０　　　２
 12　   　　　　 △　　　　１　　　０　　　１　　　２　　　３
 13　　　 　　　 ×　　　　２　　　０　　　２　　　３　　　１
 14  Ｃ社　　　　○　　　　２　　　３　　　２　　　０　　　１
 15　 　　　　　 △　　　　２　　　０　　　１　　　０　　　１
 16　　 　　　　 ×　　　　１　　　０　　　１　　　２　　　１
 17  ＠Ｂ社　　　○　　　　２　　　１　　　１　　　１　　　１
 18　 　　　　　 △　　　　０　　　２　　　０　　　２　　　２
 19　　 　　　　 ×　　　　１　　　２　　　３　　　９　　　１
 20  ＊Ａ社　　　○　　　　２　　　３　　　２　　　１　　　４
 21 　 　　　　　△　　　　０　　　２　　　１　　　３　　　１
 22 　　 　　　　×　　　　１　　　２　　　４　　　０　　　０

 ↓これを
      Ａ　　　　Ｂ　　　　Ｃ　　　Ｄ　　　Ｅ　　　Ｆ　　　Ｇ
 １　会社名　　評価基準　評価１　評価２　評価３　評価４　評価５　　　
 ２  Ａ社　　　　○　　　　７　　　14　　　５　　　５　　　８
 ３　   　　　　 △　　　　６　　　４　　　２　　　９　　　４
 ４　　     　　 ×　　　　３　　　５　　　７　　　３　　　５
 ５  Ｂ社　　　　○　　　　４　　　４　　　２　　　３　　　３
 ６　   　　　　 △　　　　１　　　２　　　１　　　４　　　５
 ７　　　 　　　 ×　　　　３　　　２　　　５　　　12　　　２
 ８  Ｃ社　　　　○　　　　２　　　３　　　２　　　０　　　１
 ９　 　　　　　 △　　　　２　　　０　　　１　　　０　　　１
 10　　 　　　　 ×　　　　１　　　０　　　１　　　２　　　１
にしたいんです。
Ａ社＝Ａ社、＠Ａ社、＊Ａ社（Ａ社を含むもの）
Ｂ社＝Ｂ社、＠Ｂ社、＊Ｂ社（Ｂ社を含むもの）
Ｃ社＝Ｃ社、＠Ｃ社、＊Ｃ社（Ｃ社を含むもの）
評価の数値もそれに伴ってほしいです。
よろしくおねがいします。

 なかなかレスがつかないですね(^^;

 一つ質問があります。
 A列には会社名がはいっているようですが、"Ａ社"と"＠Ａ社"などの間は何も入力されていないのですか？

 ・自分の力ではそれぞれの行に会社名が入っていないと難しいですね・・・。
 　なんで空欄の部分にも会社名を入れるという提案をしたいのですが・・・。どうでしょう？
 　(書式で文字をセルの背景色と同じにすると見た目わからないし・・・。)
 ・あと元のデータと結果は別シートなんでしょうか？
 　(どっちもＡ１から入力が始まっているので気になりました・・)

 空欄の部分にも会社名を入れていただけるという前提で・・・。
 元データのシート名をsheet1、結果を表示するシート名をsheet2とします。
 sheet2のC2からG10まで範囲選択して数式バーに
 =SUMPRODUCT(IF(ISERR(SEARCH(A2,sheet1!$A$22:$A$22)),0,1)*(sheet1!$B$2:$B$22=B1),sheet1!C$2:C$22)
 として[ctrl]+[shift]+[Enter](ボタン3つ同時押しです)で配列式に。

 だめですかね・・・(^^;
 (gloomy)

 本日はこれにてPC落としますのでフォローできません。
 達人の方々、他になにか良い案ありましたらぜひお願い致します！
 あとフォローのほうもできれば・・・(ムシが良すぎるか・・失礼しました)
 (実は配列式苦手　gloomy)

 わたしは一般機能（関数）は、まったくできないのでレスできません。
 ごめんなさい・・・。   (INA)

 空欄の部分にも会社名が入っているという前提で、
 かつ、Ａ社、＠Ａ社が同じグループに属するものであるとわかるように、列が追加されているものとして、
 ピボットテーブルで集計はいかがでしょう？
 結構、安直ですが・・・　ちなみに集計結果です。（まこ）

 		データ				
 グループ名	評価基準	合計 / 評価１	合計 / 評価２	合計 / 評価３	合計 / 評価４	合計 / 評価５
 Ａ社	×	3	5	7	3	5
 	△	6	4	2	9	4
 	○	7	14	5	5	8
 Ａ社 集計		16	23	14	17	17
 Ｂ社	×	3	2	5	12	2
 	△	1	2	1	4	5
 	○	4	4	2	1	3
 Ｂ社 集計		8	8	8	17	10
 Ｃ社	×	1	0	1	2	1
 	△	2	0	1	0	1
 	○	2	3	2	0	1
 Ｃ社 集計		5	3	4	2	3
 総計		29	34	26	36	30

 衝突しました。
一応、ほんとに一応。。なるには、なったけど。。汗
Sheet2に↓こんな表があるとして、、
　A　　　　B　　　　C　　　　D　　　　E　　　　F　　　　G
1会社名	評価基準	評価１	評価２	評価３	評価４	評価５
2　A社						
3						
4						
5　B社						
6						
7						
8　C社
標準モジュールに貼り付けてください。
今回だけで、応用する場合はご自身でお願いします。（汗）
Sub 集計()
Dim MyA As Variant, MyB As Variant
Dim i As Long, j As Long, k As Long, n As Long
Dim MyStr As Long
Dim MyAry() As Variant
Dim MyRow As Long
With Sheet1
    With .Range("A1").CurrentRegion
        MyA = .Resize(.Rows.Count - 1, .Columns.Count).Offset(1).Value
    End With
End With
With Sheet2
        MyRow = .Range("A65536").End(xlUp).Row + 2
        .Range("B2:G" & MyRow).Value = "○"
    With .Range("A1").CurrentRegion
        MyB = .Resize(.Rows.Count - 1, .Columns.Count).Offset(1).Value
    End With
End With
k = 1
For j = LBound(MyB, 1) To UBound(MyB, 1) Step 3
    For i = LBound(MyA, 1) To UBound(MyA, 1) Step 3
    ReDim Preserve MyAry(LBound(MyB, 1) To UBound(MyB, 1), LBound(MyB, 2) To UBound(MyB, 2))
        MyStr = InStr(1, MyA(i, 1), Left(MyB(j, 1), 1), 1)
            If MyStr > 0 Then
                For n = 3 To UBound(MyA, 2)
                        MyAry(k, n) = MyAry(k, n) + MyA(i, n)
                        MyAry(k + 1, n) = MyAry(k + 1, n) + MyA(i + 1, n)
                        MyAry(k + 2, n) = MyAry(k + 2, n) + MyA(i + 2, n)
                Next
            End If
    Next
                        MyAry(k, 1) = MyB(k, 1)
                        MyAry(k, 2) = MyA(k, 2)
                        MyAry(k + 1, 2) = MyA(k + 1, 2)
                        MyAry(k + 2, 2) = MyA(k + 2, 2)
    k = k + 3
Next
With Sheet2
    With .Range("A1").CurrentRegion
        .Resize(.Rows.Count - 1, .Columns.Count - 1).Offset(1, 1).ClearContents
        .Resize(UBound(MyB, 1), UBound(MyB, 2)).Offset(1).Value = MyAry
        .Columns().AutoFit
    End With
End With
Erase MyA, MyB, MyAry
End Sub				
一応↓こんなんになりました。汗
会社名	評価基準	評価１	評価２	評価３	評価４	評価５
A社	○	7	14	5	5	8
	△	6	4	2	9	4
	×	3	5	7	3	5
B社	○	4	4	2	1	3
	△	1	2	1	4	5
	×	3	2	5	12	2
C社	○	2	3	2	0	1
	△	2	0	1	0	1
	×	1	0	1	2	1
B社の○評価4は、、「1」ですね。汗
(夏目雅子似）

 試しに書いてみます。広範囲にわたり配列関数数式を伏せることになりますので、大変重いと思います。
 元シートをSheet1として、Sheet2のA1:G1に横見出し、A2:B10にたて見出しを配置し、
 C2に
 =SUMPRODUCT(ISNUMBER(FIND($A2,Sheet1!$A$2:$A$20))*(Sheet1!$B$2:$B$20=$B2),Sheet1!C$2:C$20)
 C3に
 =SUMPRODUCT(ISNUMBER(FIND($A2,Sheet1!$A$2:$A$20))*(Sheet1!$B$3:$B$21=$B3),Sheet1!C$3:C$21)
 C4に
 =SUMPRODUCT(ISNUMBER(FIND($A2,Sheet1!$A$2:$A$20))*(Sheet1!$B$4:$B$22=$B4),Sheet1!C$4:C$22)
 と入力し、これらをG2:G4までフィルドラッグし、C2:G4をコピーして、B5:G10に貼り付け。
 A列とB列のキー項目を作業列に配置して、統合などもよいかもしれません。　　　　  　　(LOOKUP)

w(☆o◎)wがぁ～～～～ん！！(∩_∩;)P 白旗～！

 (夏目雅子似）

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

 C2に
 =SUMPRODUCT(ISNUMBER(FIND($A2,Sheet1!$A$2:$A$20))*(Sheet1!$B$2:$B$20=$B2),Sheet1!C$2:C$20)
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑と↑と　　　　↑と↑　ココはC2とC3とC4でなぜずらすんですか？
 でも前の参照先はずれてないんですけど、何か意味ありますか？
 C3に
 =SUMPRODUCT(ISNUMBER(FIND($A2,Sheet1!$A$2:$A$20))*(Sheet1!$B$3:$B$21=$B3),Sheet1!C$3:C$21)
 C4に
 =SUMPRODUCT(ISNUMBER(FIND($A2,Sheet1!$A$2:$A$20))*(Sheet1!$B$4:$B$22=$B4),Sheet1!C$4:C$22)
あと、この関数の意味を教えて下さい。
お願いします。
（へみ）

 =SUMPRODUCT(１配列,２配列………)は、下のように数量配列*単価配列の合計を計算できます。

 　　数量　単価
 　　A　　 　B
 1　 10　　　5
 2　 20　　　4
 3　 30　　　3
 4　220	
 　　↑
 =SUMPRODUCT(A1:A3,B1:B3)

 各配列の積和が計算できることを利用して、AND条件で一致したものの数値を合計できます。
 =SUM()を使用して構成した配列数式が、Ctrl+Shift+Enterと入力する必要があるのに対して、
 =SUMPRODUCT()は、Enterで入力できることから、広く利用されています。

 =SUMPRODUCT( AND条件１配列 *AND条件２配列 *………,合計範囲配列)

 回答の数式の２行目の
 =SUMPRODUCT(ISNUMBER(FIND($A2,Sheet1!$A$2:$A$20))*(Sheet1!$B$3:$B$21=$B3),Sheet1!C$3:C$21)
 ISNUMBER(FIND($A2,Sheet1!$A$2:$A$20))は、Sheet1!$A$2:$A$20の中にA2が発見できるものだけ、

 (Sheet1!$B$3:$B$21=$B3)は、Sheet1!$B$3:$B$21の中で$B3と等しいものだけ、という意味です。

 会社名の行と評価基準の行とは、一組のうち２個は、位置ずれがありますので、
 対象範囲指定をこのようにしています。　　　　　　　　　　　　　　　　　　　　　(LOOKUP)

 毎度回答ありがとうございます。
 もう一ついいですか？
 sheet1
 　　　Ａ　　Ｂ
 １　Ａ社　　10
 ２　Ｂ社　　20
 ３　＠Ａ社　20
 ４　Ｃ社　　15
 ５　＊Ａ社　20
 ６　＠Ｂ社　25
 ↓
 sheet2
 　　　Ａ　　Ｂ
 １　Ａ社　　50
 ２　Ｂ社　　45
 ３　Ｃ社　　15
 にしたいんです。
 sheet2のＢ１に
 =SUMPRODUCT(ISNUMBER(FIND($A1,Sheet1!$A$2:$A$6)),Sheet1!B$2:B$6)
 sheet2のＢ２に
 =SUMPRODUCT(ISNUMBER(FIND($A2,Sheet1!$A$2:$A$6)),Sheet1!B$2:B$6)
 じゃダメですか？
 0になるんですけど・・・
（へみ）

 もらったv(=∩_∩=)v
=SUMPRODUCT(ISNUMBER(FIND($A1,Sheet1!$A$1:$A$6))*Sheet1!$B$1:$B$6)
で、ないの？
さっつ
（SoulMan）

 間違えた・・・
 =SUMPRODUCT(ISNUMBER(FIND($A1,Sheet1!$A$1:$A$6))*Sheet1!$B$1:$B$6)
 です。
 できませんけど・・・
 （へみ）

 SoulManさんのおっしゃる方法で勿論よいのですが、前の説明の続きという意味で、

 Sheet2のB1を=SUMPRODUCT(N(ISNUMBER(FIND(A1,Sheet1!A$1:A$6))),Sheet1!B$1:B$6)
 として、下にフィルドラッグでよいと思います。
 ISNUMBER(FIND(A1,Sheet1!A$1:A$6))この部分が論理値の配列ですから、上のようにされるか、
 =SUMPRODUCT(1*(ISNUMBER(FIND(A1,Sheet1!A$1:A$6))),Sheet1!B$1:B$6)などとして、数値に
 変換しますと、積和が計算できます。

 単独の条件の場合には、=SUMIF(Sheet1!A$1:A$6,"*"&A1&"*",Sheet1!B$1:B$6)と=SUMIF()が
 利用できます。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(LOOKUP)

 （○'ω'○）ん？
LOOKUPさんの後で心強いv(=∩_∩=)v
Ａ社	50	TRUE	10
Ｂ社	45	TRUE	20
Ｃ社	15	FALSE	20
		TRUE	15
		TRUE	20
		TRUE	25
ちなみに、私のところでは↑となっております。
C1に
=ISNUMBER(FIND($A1,Sheet1!$A$1:$A$6))
D1に
=Sheet1!$B$1:$B$6
としてみると、悪さをしてるやつがわかるかもよぉ？？v(=∩_∩=)v
（SoulMan）

 できました。
 何か勘違いしてたみたいです。
 ありがとうございました。
 （へみ）

コメント返信：

[ 一覧(最新更新順) ]

[[20040917162804]] 『集計』（へみ） ページの最後に飛ぶ

[[20040917162804]]　『集計』（へみ）　ページの最後に飛ぶ