VBA-关于删除背景色为红色的数据

Question

本人想A1:B3区域 把单元格背景是红色数据清空 在网上找了一段代码
Sub 批量删除()
For Each rng In Range("A1:B3")
If rng.Interior.ColorIndex = 3 Then
rng.Delete Shift:=xlUp
End If
Next
End Sub
这段VBA不仅清空数据了而且把下面的行上移了，本人只想清空数据，不想移动行 本人知道 要

修改 rng.Delete Shift:=xlUp 但对VBA不太熟悉 请各位大侠求教

Answer 1

Sub 批量删除()
For Each rng In Range("A1:B3")
If rng.Interior.ColorIndex = 3 Then
rng.value=""
End If
Next
End Sub

Answer 2

rng.clearcontents 代替 rng.Delete Shift:=xlUp