求助:函数公式

chinsun0904

工作中为了方便，编了一个VBA的公式，代码如下：

Range("if4").Select                     

   IfRange("AG4") = "" Then

     Range("if4") = ""

  Else

     Range("if4") = "0"

  End If

     

     Range("if5").Select

   IfRange("AG5") = "" Then

     Range("if5") = ""

  Else

     Range("if5") = "0"

  End If

大概意思是：AG 列对应的单元格如果有值，IF列对应的单元格返回0，没有则返回空值。从第四行到第三十行，甚至更多行。
我现在用的办法是大量列举，代码有好几页。
现在遇到的问题是，那么有没有办法调用一个循环呢？单元格能不能用A（i）这种表达方式呢?希望高手能给个建议。谢谢。

chinsun0904

Dim i As Integer
    For i = 4 To 40
    If Cells(i, 33).Value <> "" Then           
     Cells(i, 240) = "0"                     
     Cells(i, 106) = "1"                    
        End If
我自己想出来了

    Next i