EXCEL：如果a1字体颜色为红色，则删除b1

Question

如果a1以红色写入，则删除单元格b1的内容 如果a2以红色写入，则删除单元格b2的内容 如果a3以红色写入，则删除单元格b3的内容 如果a4以红色写入，则删除单元格b4的内容 如果a5以红色写入，则删除单元格b5的内容，依此类推 ...请帮忙

Answer 1

类似的东西：

Sub BetterRedThan()
    Dim rng As Range, r As Range

    For Each r In Intersect(Range("A:A"), ActiveSheet.UsedRange)
        If r.Font.Color = vbRed Then
            r.Offset(0, 1).Clear
        End If
    Next r
End Sub