[[20160422181322]]　『B列かつC列の空白以外のセルを抽出して表示』（初心者です。）　ページの最後に飛ぶ

『B列かつC列の空白以外のセルを抽出して表示』（初心者です。）

重複していたらすみません。
　　A　　B　　C
1　名前　個　冊
2　山田　2　　3
3　鈴木　　　 1
4　田中
5　佐藤　4

と表があった場合、個のセルが空白でかつ、冊のセルも空白の場合削除させたいのです。

　　　A　　B　　C
1　名前　個　冊
2　山田　2　　3
3　鈴木　　　 1
4　佐藤　4

となるように別シートに表示させたいのです。
かなり初歩的なことを聞いていると思いますが宜しくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

「詳細設定」はどうでしょうか
http://www4.synapse.ne.jp/yone/excel2013/excel2013_advancedfilter.html

（マナ） 2016/04/22(金) 19:21

マナさんへ
別シートに抽出したいので、このやり方だと毎回時間がかかってしまいます。
すみません。
出来ればコピペして使えるように関数やマクロでできるとうれしいです。
（初心者です。） 2016/04/22(金) 19:52

こうでしょうか

 Sub test()
    Dim データ As Range
    Dim 条件 As Range
    Dim 抽出先 As Range

    Set データ = Sheets("Sheet1").Range("A1").CurrentRegion
    Set 条件 = データ.Offset(, データ.Columns.Count + 1).Resize(2, 1)
    条件.Cells(2).Formula = "=or(B2<>"""",C2<>"""")"

    Set 抽出先 = Sheets("Sheet2").Range("A1")
    抽出先.CurrentRegion.ClearContents

    データ.AdvancedFilter xlFilterCopy, 条件, 抽出先

    条件.ClearContents

 End Sub

（マナ） 2016/04/22(金) 20:30

マナさん
ありがとうございます。
うまく出来たのですが、名前の列が反映されないので
こちらを参考に試行錯誤してみます!!

（初心者です。） 2016/04/22(金) 21:03

横から失礼します。
＞名前の列が反映されないので
そういうことにはならないと思うのですけど。

念のためお聞きしますが、
質問のケースだと、どうなってしまうのですか？

（γ） 2016/04/22(金) 22:58

コメント返信：

[ 一覧(最新更新順) ]

[[20160422181322]] 『B列かつC列の空白以外のセルを抽出して表示』（初心者です。） ページの最後に飛ぶ

[[20160422181322]]　『B列かつC列の空白以外のセルを抽出して表示』（初心者です。）　ページの最後に飛ぶ