excelvba改变单元格颜色函数

Question

求一个涵数，“如果单元格A1的字符为yes，那么B1的单元格为红色”，极度感谢，求高手指点

Answer 1

Sub 红色()
    If [a1] = "yes" Then [b1].Interior.ColorIndex = 3
End Sub

 如果A列单元格中的字符为yes，那么B列相应的单元格为红色——代码如下：

Sub 红色()
    For i = 1 To [a65536].End(3).Row
    If Cells(i, 1) = "yes" Then Cells(i, 2).Interior.ColorIndex = 3
End Sub

追问

请问 [A1]这个单元格，如果我要换成变量 i 该怎么写，，，比如说是从A1到A20

追答

下面的代码就行。