以下の内容でk行目の内容だけ表示させる方法

質問

以下の内容でk行目の内容だけ表示させる方法

・k行1列目の値とm行1列目は必ず一緒になりますがS1111とは限りません、そして行としてはランダムに配置される可能性があります
・k行2列目の値とn行2列目は必ず一緒になります、これは必ずH11-Yという名称です、そして行としてはランダムに配置される可能性があります

実際はこの内容がシート1に貼られており、このシート1上でk行目だけ表示させる内容を知りたいです、VBA初心者のため分かりやすく教えていただけるとありがたいです

　 1列　 2列　
～
k行 S1111　 H11-Y　　
～
m行 S1111 H22-R
～
n行 S2222 H11-Y

回答No.2

imogasi

質問の表現がよくわからない。
説明の発想が普通と違うのでは？
ーーー
何かの条件でデータ行を探して、該当分を探して表示したいのだろうが。
普通はＦｉｎｄやＦｉｌｔｅｒの話になると思うが、
その条件は
（１）普通多いのは、プログラム作成者が決めた、決まった(注）
文字列を探す、というタイプが多い。
(注）少し進んだ課題で、正規表現的に少し違う内容の場合もあるが。
たとえばＡ列がＳ１１１１のもの（行データ）をすべて探すして列挙、など。
この場合結果表示（希望）は、通常すべての行を表示するとなるだろう。
（２）もう一つは、Ａ列の行で、セルの値は何であっても、別行で同じ値がある行を探す。その値は、探すときは判ってない前提で探す。
この場合の結果表示（希望）は、１つの行の分を代表で表示や、
すべて街灯を表示する、となり、位置（行番号など）が」問題になるだろう。
ーー
このどちらですか。
それともどちらとも違いますか？
ーー
最近同様の質問をしませんでしたか？読者は、質問の意味がよくわからず、回答がつかなかったのでは？
ＶＢＡの初心者だという前に、問題タイプのレパートリーを徐々に増やすべきです。すると質問の仕方が」普通になる。
＝＝
Ｋ行（Ａ列）とＭ行（Ａ列）と
Ｋ行（Ｂ列）とＮ行（Ｂ列）と
の説明をしているが、その関係は？

回答No.1

masnoske

質問の意味をうまくくみ取れないのですが，
1列目でk行1列目の値でフィルタを掛けて，2列目で"H11-Y"でフィルタを掛けたいということでしょうか？

であれば，
(1) シート1の1行目にタイトル行を入れる（フィルタを掛けるのに必要）．
　タイトルはお好きなように入力してください．空白でも構いません．
(2) シート1に以下のマクロを記述して実行して下さい．
Sub Macro1()
Dim rw As Long

rw = InputBox("何行目で絞り込みますか？")

Me.Range("A:B").AutoFilter Field:=1, Criteria1:=Me.Range("A" & rw).Value
Me.Range("A:B").AutoFilter Field:=2, Criteria1:="H11-Y"
End Sub