如果然后VBA宏-如果另一列的内容= 100％，则更新一列

Question

我有一个工作簿，“结果”为工作表3，这是我要使用的工作表。

我尝试了一些公式来尝试添加宏以执行以下操作：

我的G栏有百分比。 然后，在第I列中，我希望有一个结果为TRUE / FALSE，其中G的内容等于100％。 G列的格式设置为带有两位小数的百分比。

一些注意事项：我的第一行是指向另一个工作表的超链接，然后是标题，然后是“结果”的第一行。 我有457行，如果可以测量范围，也许可以在A上？

我的范围不断出现此错误9，并且有些卡住了。

提前致谢！

Sub PartialHits1() 
Dim rng As Range 
Dim lastRow As Long 
Dim cell As Range 

With Sheet3 
    lastRow = .Range("G" & .Rows.Count).End(xlUp).Row 
    Set rng = .Range("G1:G" & lastRow) 
    For Each cell In rng 
        If cell.Value = 100 
        Then 
            cell.Range("I1:I1").Value = 100 
        End If 
    Next 
End With 

End Sub 

（我对此有些理解，只是试图将其设置为100而不是TRUE / FALSE，而且在出现错误时也在Sheet 3部分附近玩耍。）

Answer 1

RangeVariable.Range只能引用RangeVariable.Range中的一个单元格，因此您不能以这种方式引用I列。 试试： .Range("I"&cell.row)=100 。

同样，您的条件可能是错误的，如果单元格中的100％的实际值为1。

最后一个问题：为什么要使用VBA进行此操作，使用工作表函数=IF(G3=1,100,"")会更加简单