excel　関数　表示されているセルのみ抜き出す

回答が出ているが、ＶＢＡに夜質問ですか？ 操作でないのはわかるが、ＶＢＡかんすうは経験なく、関数での会報ではないのか。 関数での抜き出し問題は、式が複雑になって難しいのだ。初心者では絶対思いつかない式になっている。 ーー ＞B列に表示されているものだけ抜き出・・ は判りにくい。結果がどうなれば良いのか例でも挙げるべきだ。手を抜かないこと。他人にはわかりにくいのだ。 ーーー 推測で回答を挙げておく。 例データ Ｓｈｅｅｔ１ Ａ列　　Ｂ列　　　　　　Ｃ列 2 　　＜－第２行目から 2 4 1 5 4 8 2 5 8 Ｃ２の式は　=IF(AND(A2<>"",B2<>""),MAX($C$1:C1)+1,"") 下方向に式を複写。 結果 上記Ｃ列。条件に合う行に上行から連番をフッタ（ここは作業列） ーー Ｓｈｅｅｔ２　のＡ２に Ａ２に　=INDEX(Sheet1!$A$1:$B$10,MATCH(ROW()-1,Sheet1!$C$1:$C$10,0),COLUMN()) Ｂ２に横方向に式複写 Ａ２：Ｂ２の式をあって方向に式複写。 結果 Ｓｈｅｅｔ２ 2 4 4 8 #N/A #N/A imogas方式。作業列を使うという点があるが。i Ｇｏｏｇｌｅで「imogasi方式」で照会すれば、複雑な関数式での回答が出ているのが判る。 ーーー ＶＢＡでやれば上の行から条件に合うか判定して条件に合うものをＳｈｅｅｔ２にでも貼り付ければ仕舞いで、難しい理屈を考えなくて済む。 ーー 関数の超熟練者でなければ、出来ればエクセルではフィルタ（操作）でやるのが、予定されたやり方と思う。

どこに抜き出したいのかが書かれていなかったので 別のシートに抜き出すようにしています。(Sheet1からSheet2へ) Sub Macro1() Set WS1 = Sheets("Sheet1")　'ここを変更 Set WS2 = Sheets("Sheet2")　'ここを変更 WS2.Cells.ClearContents COUNTER = 0 For INP = 1 To WS1.Cells(Rows.Count, 1).End(xlUp).Row If WS1.Cells(INP, 2) <> "" Then WS1.Rows(INP).Copy COUNTER = COUNTER + 1 WS2.Rows(COUNTER).PasteSpecial Paste:=xlPasteValues End If Next INP Application.CutCopyMode = False End Sub シート名は適宜変更して下さい。 データが増え続けるのであれは問題ないのですが、減る事がある場合 前のデータが残ってしまうので WS2.Cells.ClearContentsでSheet2の内容を消去しています。 不要であれば削除してください。

4と8ですか？ どこに抜き出すのですか？ A列がとびとびなのと今回の質問内容と何か関係があるのですか？ A列の中からB列にある4と8に一致したものを抜き出す？？ その場合の解答は4と8だからA列から抜き出すもなにもB列見るだけで分かるし… 手を抜かずに、ちゃんと具体的に結果がこうなりたいとか書いてみたらいかがでしょう。