エクセルマクロで特定の条件を満たすセルの関数を消す

質問

A1~D10000の範囲で値が入力されています。
F1~F10000に、それぞれの行の値が必要なのかの判定を関数で表示させています。

F列に「×」と表示されている行のA~D列の値をクリアさせるマクロを
作成したいです。
ネットで調べた所、「行を削除」というテンプレはあったのですが、
それだとF列の関数も消してしまうので、それは避けたいです。
最悪、行の削除をした後に関数をF列にコピペするマクロを
追加すれば良いと思いますが、下記マクロまで作ったのですが、
うまく動いてくれません。
分かる方がいましたら、返信頂きたいです。

Dim i As Long
For i = Range("A1").End(xlDown).Row To 2 Step -1
With Cells(i, "F")
If _
.Value Like "×" Then
.EntireRow.Delete
End If
End With
Next i
End Sub

回答No.1

mt2015 · ベストアンサー

クリアするだけならClearContentsを使用すればよいです

Sub Sample()
　　For i = 1 To 10000　’1行目から10000行目までループを回す
　　　　If Cells(i, "F") = "×" Then　'F列が×の場合
　　　　　　'対象行のA:D列をクリア
　　　　　　Range(Cells(i, "A"), Cells(i, "D")).ClearContents
　　　　End If
　　Next i
End Sub

回答No.2

Chiquilin

どうせなら F列の判定自体 マクロで処理した方がいいのでは？
それはともかく「値をクリア」は「Delete（セルの削除）」とは
違うんですが 実際はどうしたいんでしょうか。

Deleteじゃないなら 下から処理している意味が全くありません。

If Cells(i, 6).Value = "×" Then
Cells(i, 1).Resize(1, 5).Delete Shift:=xlUp
End If