IFの構文で
IF の構文を作っていますが
Cells(p, 6) がブランクのとき何もしない
Cells(p, 6)<= If Cells(p, 7) とき何もしない
Cells(p, 6)< If Cells(p, 7) とき その列を削除する
という文にしたいのですがうまくできません
自分なりに以下つくったのですが....
お教えいただければと思い投稿しました、どうぞよろしくお願いします。
Sub 削除()
Dim p As Long
Sheets("前P").Select
For p = 200 To 7 Step -1
’なにもしないで次の処理へ行く ここがうまくいかない
If Cells(p, 6) = " " Then
ElseIf Cells(p, 6) < Cells(p, 7) Then
Range(Cells(p, 2), Cells(p, 20)).Select
Selection.Delete Shift:=xlUp
End If
Next p
End Sub
うまくいかないのは上記の構文だとブランクも削除の対象と
なってしまうところです。
うまくブランクは残して実行する方法を教えていただきたいのですがよろしくお願いいたします。
.
お礼
わかりました。ありがとうございます。 どんな関数でも使えるのですね。