エクセルで条件によって、他のセルに反映させる方法

質問

こんにちは、教えてください
状況としては
シート１のセル
Ａ１～Ａ３１に１日～３１の日付
Ｂ１～Ｂ３１に数字を入力
Ｃ１～Ｃ３１にＩＦの関数で、Ｃ１ならＢ１に、Ｃ２ならＢ２に特定の数字が入力されたときにその件数を表示するようにしています
そこでしたいことですが、例えばＣ５とＣ１０に件数が表示されたら、シート２に件数がでた日の日付リストができるようにしたいのです
うまく説明できませんが、やり方を教えて下さい。お願いします

回答No.5

cafe_au_lait · ベストアンサー

No.3さんのお礼の欄に書かれた状態で考えます。

まずシート1のD列を計算用にお借りします。D1に以下の式を入力し、D31までコピーします。

=IF(C1="","",C1*100+COUNTIF(C$1:C1,C1))

つづいてシート2ですが、A1に"1"、A2に"2"とあるものとします（シート1のC列の値です）。各列の1行目に該当する日付を2行目以下に羅列します。

A2に以下のように入力します。

=IF(COUNTIF(シート1!$C$1:$C$31,A$1)<ROW()-1,"",OFFSET(シート1!$A$1,MATCH(A$1*100+ROW()-1,シート1!$D$1:$D$31,FALSE)-1,,,))

これをB32までコピーすれば、希望通りの結果が得られると思います（読み違えていたらごめんなさい）。

以下蛇足ですが、D列の内容をA列のすぐ左に挿入するか、E列にも日付を書いておけば、offset(～match(～・・・はvlookup関数で書くことができ、ちょっとだけ短くなります。

・E列に日付がある場合

=IF(COUNTIF(シート1!$C$1:$C$31,A$1)<ROW()-1,"",VLOOKUP(A$1*100+ROW()-1,シート1!$D$1:$E$31,2,FALSE))

回答No.4

ham_kamo

No.3です。
やりたいことはあっているとのことですが、関数だけで処理する方法を思いつかなかったので、No.3で書いた手順をマクロにして、Ｂ列に変化があったときに自動的にマクロが実行されるようなVBAを書いてみました。

まずVisual Basic EditorでModule1に以下のマクロを作成します。

Sub 抽出()
Dim Cell1 As Range

Set Cell1 = ActiveCell

Sheets("Sheet1").Select
Range("A1:C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<>"
Columns("A:A").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Sheet1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Cell1.Activate

End Sub

次に、同じくVBEからSheet1に次のコードを追加します。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Call 抽出
End If

End Sub

これで、Ｂ列のどれかのセルが変化したときに、Sheet2を更新します。一瞬画面がちかちかっとしますが。

なお、これのVBAスクリプトは質問文にあるとおり、シート名がSheet1,Sheet2で、列はA,B,Cでないと正しく動作しません。

回答No.3

ham_kamo

私も他の方同様、質問内容をきちんと把握できてないのですが、「シート１のＣ列に何らかの値が入っている行のＡ列のセルの値のリストをシート２に作りたい」ということでしょうか？

手動ですが、シート１にオートフィルタをかけて（先頭行はタイトル行にした方がいいです）、Ｃ列で「空白以外のセル」でフィルタリングし、表示されたＡ列だけをコピーしてシート２に貼り付るという方法はどうでしょうか。

やりたいことと違っていたらすみません。

お礼

分かりにくい説明ですいません
ham_kamoさんの書かれているような感じです
シート１の一覧表で入力された状況に応じて、シート２に自動的に抽出したいのです。
例）シート１のＡ列に日付が連番で、Ｂ列に山田と入力、Ｃ列はＢ列に山田と入ると１を佐藤と入ると２を表示
このように設定しておいて、Ｂ５とＢ１７とＢ２５に山田と入力します
すると５日と１７日と２５日がシート２に表示されるようにしたいのです
こんなことができるのか分かりませんし、うまく説明できないのですが、よろしくお願いします

回答No.2

sakuuuuu

ちょっと私もイメージがつかめません。

「その件数」とか「シート２にリストを作る」だけでは良く分かりません。
あなたがシートの仕様を完璧に理解し、うまく説明できないと我々にも何がしたいか伝わってきません。

質問の入力に時間はかかるかもしれませんが、例等を記載してきちんと仕様を記述するのが良いかと思います。
その方が回答もしやすいし、回答も多くなるでしょう。

回答No.1

altern8

されたいことのイメージが今ひとつつかめていなくて申し訳ないのですが、例えばピボットテーブルを作成して、B列の特定の数値のみ抽出するというようなやり方ではいかがでしょうか？