エクセル（横串計算）

エクセルの扱い方でお尋ねです。

１
・シートが１から276まである
・各シートのＤ４セルの数値の中に、1,2,3,4,5,6,7,他 の文字が入っている
・全てのシートの、例えばＤ４に入力された「1」の個数をカウントしたいとき　
　はどうすればよいでしょうか。

２
・シートが１から276まである
・各シートのＣ３セルの数値をシート１から書かれている順に抜き出す
　ことは可能でしょううか。

ご教示ください。

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/03/19 13:38

こんにちは！

串刺し計算はすべてのSheetの配置が同じ場合、各Sheetの「合計」ができる！
という操作になりますので、
今回のような「カウント」には対応できないと思います。
VBAであれば可能です。
↓のコードを標準モジュールにコピー＆ペーストしてマクロを実行してみてください。

①　「1」の個数をカウントする場合

Sub Sample1()
Dim k As Long, cnt As Long
For k = 1 To Worksheets.Count
If Worksheets(k).Range("D4") = 1 Then
cnt = cnt + 1
End If
Next k
MsgBox cnt
End Sub

②　各SheetのC3セルの値を表示させる場合

Sub Sample2()
Dim k As Long, str As String
For k = 1 To Worksheets.Count
If Worksheets(k).Range("C3") <> "" Then
str = str & Worksheets(k).Range("C3") & ","
End If
Next k
If Len(str) > 0 Then
MsgBox Left(str, Len(str) - 1)
Else
MsgBox "データなし"
End If
End Sub

※　②の方は別Sheetを準備しデータを羅列するか、使っていないセルに表示させた方が
判りやすいかもしれませんね。m(_ _)m

この回答へのお礼

詳細なご説明、ありがとうございました！
１については、シートが276程度でしたので、結果的に別のエクセルファイルに入力してカウントしました。
２についても同様に一旦とりまとめたものを抽出することにしました。
ありがとうございました！

お礼日時：2015/03/29 18:40

No.2 回答者： m-harmony 回答日時： 2015/03/21 18:25

同じレイアウトの表であれば、別のsheetでも集計(合計)が可能。

という内容が「横串計算」になるので、指定した数値を抜き出す事が目的なら「横串計算」は違いますね。

もし、抜き出す方法を知りたいのであれば、「vlookup関数」が該当しているんじゃないかな？
関数の種類は沢山ありますし、色々調べた結果、使いたい内容があったら試すって方法で覚えていくのが良いですよ。

この回答へのお礼

ありがとうございます。勉強になりました！

お礼日時：2015/03/29 18:34