Vba If else（基本）

Question

如果K列中有空白，则想在G列中的所有单元格中包含一个值，否则不做任何更改。

If ActiveSheet.Range("K").Value, Criteria1:=" = " Then ActiveSheet.Range("G").Value = "Promo"

Else
    Exit Sub

Answer 1

为了测试所有值，您需要遍历该列。我的示例假设数据的行数不超过100'000，并且您正在测试是否要添加“ =” ...根据需要添加。

Sub TestColumnK()

For i = 1 To ActiveSheet.Range("K100000").End(xlUp).Row
    If InStr(1, ActiveSheet.Range("K" & i).Value, "=") > 0 Then
        ActiveSheet.Range("G" & i).Value = "Promo"
    End If
Next i

End Sub