[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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 >
(マナ) 2016/04/22(金) 19:21
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.