エクセルで複数行のセルからフィルタ抽出する方法

質問

エクセルで複数行のセルからフィルタ抽出する方法
エクセルで、何日に誰が日直、当直に入ったかをまとめている表があります。平日は当直4人.土日は日直と当直が各4人ずつです。

aさん 1| 2|8|15|31
bさん1|5|9|14
cさん1|6|24|30
dさん2|1|4
.
.
.
縦棒はセルの区切りです。（数字ごとに１つずつのセルに入力しています。）
日直日誌（紙媒体）から手入力をしているので、最後に2人で読み合わせをしています。複数の列をまとめてフィルタ掛けして、例えば1日（1と入力している）で絞ると、aさんbさんcさんしか出てきません（一番左の列からしか引っ張れず、dさんが引っ張られない）
どの行、どの列のセルの数字も対象にして、フィルタがけして引っ張る方法はありませんでしょうか？

回答No.3

HohoPapa · ベストアンサー

添付画像のように、
・一覧の右側にカレンダーを展開し、
・L2=IFERROR(IF(MATCH(L$1,$B2:$J2,0)>0,"〇",""),"")　を埋め
・これを必要数、右、下方向に必要数複写し
・フィルターは、L列以降を使って指示する。
という対応はいかがでしょうか。

なお、
VBAを持ち込んでよければ、別解もありましょう。

お礼

ご回答ありがとうございます！御返事遅れてすみません。
また、ご丁寧に図まで添付してくださり、大変わかりやすかったです。こちらの方法でできましたので、毎月運用できそうです！
本当にありがとうございました！

回答No.4

imogasi

これはエクセルの課題としては、「表の組み換え」タイプだろう。
Ｅｘｃｅｌに慣れて、こういうタイプ分けができるようにならないと。質問や、ＷＥＢ照会もできない。
「表の組み換え」は関数では複雑になる場合が多い。
またエクセル操作のサービスもほとんどない。
それでＶＢＡで考えた。
ーーー
Ｓｈｅｅｔ１にデータがあるとする。
Ａ２：Ｆ５
aさん 1 2 8 15 31
bさん 1 5 9 14
cさん 1 6 24 30
dさん 2 1 4
ーーー
前もって手作業で、 （ＶＢＡでもできるが）
Ｓheet2に
a2:A32に日付数字を前もって入れておく
第１行目は見出し行とする
－－－
標準モジュールに
Sub test01()
Set Sh1 = Worksheets("Sheet1") '原データシート　現実のシート名に変えること
Set sh2 = Worksheets("Sheet2") '出来上がりシート　そのシート名に変えること
'--
'sh2.Range("a2:X500").Clear
'--範囲内全セルについて繰り返し
For Each cl In Sh1.Range("B2:V50")
If cl = "" Then GoTo p1 '空白セルなら処理しない
d = cl.Value 'セルの値　中身は（何日という）日の数字
r1 = cl.Row 'そのセルの行番号
r2 = d + 1 '見出しが第１行にあるので＋１
'Sheet2のその行の右端列の隣列
k = sh2.Cells(r2, "Y").End(xlToLeft).Column + 1
'MsgBox "Sheet2の右端列" & k
'MsgBox Sh1.Cells(cl.Row, "A")

sh2.Cells(r2, k) = Sh1.Cells(r1, "A")
p1:
Next
End Sub
ーー
実行すると、結果は
日付数字 勤務者名
1 aさん bさん cさん dさん
2 aさん dさん
3
4 dさん
5 bさん
6 cさん
7
8 aさん
9 bさん
10
11
12
13
14 bさん
15 aさん
以下掲載略
Ｓｈｅｅｔ２のＢー列だい１行に
Ｂ列Ａさん
Ｃ列Ｂさん
Ｄ列Ｃさん
Ｅ列Ｄさん
のように列を固定するやり方も行われるとおもうが。
１行修正すれば、そのようにできる（略）
限界値チェックなどは手抜きした。
上記ＶＢＡのセル範囲なども実情にあわせてください。

お礼

ご回答ありがとうございます！
実は恥ずかしながらVBA？を使ったことが一度も無く、ご回答内容を完全に理解することができませんでした。
なので、まずVBAを理解することから始めようと思います。
それまでは、一個前のご回答のif error 関数を使って運用しようと思います！

ご考案、回答くださったのに、完全に理解することができずすみません。少し勉強して、またVBAを使えるように見直しします！

回答No.2

msMike

》 どの行、どの列のセルの数字も対象にして、フィルタがけして
》 引っ張る方法はありませんでしょうか？
「フィルタがけして引っ張る方法」の有無は扨て置き、貴方が最終的に求める(行列番號附きの表を呈示されたい。だって當該方法は其のゴールへ到達する迄のホンの一里塚でしょ？)

補足

質問が分かりづらく、すみませんでした。
今回はやり方を教えていただきましたが
次から質問方法に気を付けます！

回答No.1

kkkkkm

以下のサイトを参考にしてみてください。

Excelのフィルター機能で、今までできなかった「OR」条件でのフィルターを実行する[フィルターの詳細設定]
https://curio-shiki.com/blog/excel/excel-filter-orcondition

オートフィルタで複数列の「または(OR)」抽出を試してみる｜あべっきぃの超Excel
https://global-wing.com/activity/autofilter_or.html

お礼

ご回答ありがとうございます！
今回別のご回答のif eroor関数が理解しやすく運用しやすかったので使ってみることにしましたが、リンクを貼ってくださった内容も見て、応用していきたいと思います。
ありがとうございました！