エクセルで空白行を削除する ２列とも空白の場合のみ

エクセルで空白行を削除する処理についての質問です。

１つの列のみ空白の場合、削除するというマクロは分かるのですが、
１つの列が空白、また別の列も空白の場合、削除するという処理のやり方を教えていただきたいです。

たとえばＣ列が空白で、Ｐ列も空白の場合のみ、削除するなどです。
どちらか、一方のみが空白の場合は、削除しません。

お手数ですがよろしくお願いいたします。

No.3 回答者： play_with_you 回答日時： 2013/07/09 14:38

http://oshiete.goo.ne.jp/qa/8150575.html

No.2 回答者： keithin 回答日時： 2013/07/09 13:00

どちらも空白の行、を絞って削除します。

sub macro1()
　range("1:1").insert
　range("C1") = "head"
　range("C:P").autofilter field:=1, criteria1:="="
　range("C:P").autofilter field:=14, criteria1:="="
　activesheet.autofilter.range.offset(1).delete shift:=xlshiftup
　range("1:1").delete shift:=xlshiftup
end sub

一括で行うと高速にできます。

No.1 回答者： tom04 回答日時： 2013/07/09 09:56

こんにちは！

色々やり方はあると思いますが・・・

Sub 行削除()
Dim i As Long
Application.ScreenUpdating = False
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, "C") = "" And Cells(i, "P") = "" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

こんな感じではどうでしょうか？　m（_ _）m