Excel2007 複数列に対する抽出条件の設定

質問

Excel2007を使用しています。

下記のような抽出をVBAで行いたいのですが、条件の指定方法が分からず困っています。
ご存知の方がいらっしゃいましたら、ご教授願います。

A列　B列　C列　D列
1　　　あ　　22
2　　 い　　　　　　全
3　　 う　　　21　　部分
4　　 え　　　22
5　　 お　　
6　　 か　　　23　　部分
7　　 き　　　22
8　　 く　　　　21　　全
9　　 け
10　　た　　　22　　部分
11　　ち

↓↓↓↓↓↓

A列　B列　C列　D列
1　　　あ　　22
2　　 い　　　　　　全
3　　 う　　　21　　部分
4　　 え　　　22
6　　 か　　　23　　部分
7　　 き　　　22
8　　 く　　　　21　　全
10　　た　　　22　　部分

【やりたい事】　C列が空白かつD列が空白の行を削除したい。

※A列B列は連番や続いた文字が入っているのではないのですが、便宜上こう書きました。
※C列には数値、D列には文字列が入っています。

宜しくお願い致します。

回答No.3

tom04 · ベストアンサー

こんにちは！
一例です。
データは2行目からあるとします。

操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub test()
Dim i, j As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
For j = 2 To 4
If Cells(i, 3) = "" And Cells(i, 4) = "" Then
Rows(i).Delete (xlUp)
End If
Next j
Next i
End Sub

尚、一旦マクロを実行すると元に戻せませんので、別Sheetにコピー＆ペーストしてマクロを試してみてください。

こんな感じで良かったのですかね？m(__)m

お礼

早速のご回答ありがとうございました。

教えて頂いた方法で、スッキリと削除できました。
ありがとうございました。

1点質問なのですが、ｊは不要ですよね？
それとも、何か他の使い方を想定していたのでしょうか？？

回答No.5

tom04

No.2です！
たびたびごめんなさい。

確かにご指摘通りjの宣言は必要ありませんでした。

習慣で、iを行番号・jを列番号で設定し、列　→　行　を順に検索することが多いので
何も考えずについつい入力してしまいました。

jの変数定義は削除してください。

どうも失礼しました。m(__)m

お礼

いえいえ、どうもありがとうございました。

回答No.4

foolboy

非常に単純な方法です。
条件がたくさんあるとめんどうかもしれません。

まず今回の例でいくと、CとD列にフィルタをかけます。
次に、C列のフィルタのリストから「空白セル」のみにチェックを入れます。そうするとC列のデータが空白の行データが抽出されます。
つぎにD列のフィルタのリストから「空白セル」のみにチェックを入れます。そうすると、C列のデータが空白の行データのなかで、さらにD列のデータが空白のデータが抽出されます。

次に、抽出されたデータを行全体で選択して、右クリックから「行全体の削除」を選択すると抽出されたデータが削除されます。
あとはフィルタを解除するだけです。

お礼

ご回答ありがとうございました。

つい、「C列が空白以外かつD列が空白以外で抽出」という考えにとらわれていました。
どうもありがとうございました。

回答No.1

aokii

E列に
E1=C1&D1として、E列で並べ替えるかブランクセル以外を表示させてはいかがでしょう。

お礼

早速のご回答ありがとうございました。

こういう目の付け方、全く考えていませんでした。
新しい考え方を教えて頂き、ありがとうございました。

回答No.2

aokii

E列に
E1=C1&D1として、E列で並べ替えるかブランクセル以外を表示させてはいかがでしょう。