VBA-删除背景色为红色数据问题

linzi5280

本人想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不太熟悉  请各位大侠求教

18796014744

如果你只是想让红色背景单元格的内容清楚，那只需要将rng.Delete Shift:=xlUp改为   Rng.Value = ""        
如果你还需要将红色背景改为无色，那就将rng.Delete Shift:=xlUp改为 Rng.Value = ""         Rng.Interior.ColorIndex = 2 （代码分两行写）

xw11331

不用delete 用clear