在每个参数VBA excel中设置值

Question

例

栏位：

A       B       C
A001    OK
A002    OK
A003    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    OK
A004    NO
A004    OK
A004    OK
A004    OK
A004    OK
A006    OK
A007    OK
A008    OK
A010    OK
A010    OK
A015    OK
A015    NO

我想检查A列和B列的值。如果B列的值为“ OK”，则该参数中的C列的值为“ OK”，但是如果每个副本参数中只有“ NO”，则所有复制参数的值均为“ NO”在C列中。我正在使用以下代码。

for i= 1 to 100
    If Cells(i,1).value="A001" and cells(i,2).value="OK" then
        Cells(i,3).value "OK"
    end if
next i

但这在C列中没有值

我应该怎么做？

Answer 1

我建议为此使用公式。 所以你可以使用

=IF(AND(A1="A001",B1="OK"),"OK","")

现在回答您的问题...

1. 这可能是因为您缺少“ =“登录Cells(i,3).Value "OK"

2. 这可能是因为您要写入的工作表可能没有激活？ 因此，您应该始终限定对象。 类似于ThisWorkbook.Sheets("Sheet1").Cells(i,1)这样的代码

   码

    For i = 1 To 100 With ThisWorkbook.Sheets("Sheet1") If .Cells(i, 1).Value = "A001" And .Cells(i, 2).Value = "OK" Then .Cells(i, 3).Value = "OK" End If End With Next i 

3. 如果仍然不起作用，则Col A和Col B的文本中可能有空格。您可能需要将上面的代码修改为此

   码

    For i = 1 To 100 With ThisWorkbook.Sheets("Sheet1") If UCase(Trim(.Cells(i, 1).Value)) = "A001" And UCase(Trim(.Cells(i, 2).Value)) = "OK" Then .Cells(i, 3).Value = "OK" End If End With Next i