Vba If else (Basic)

Question

Хотелось бы включить значение для всех моих ячеек в столбце G, если в столбце K есть пробел, иначе изменений нет.

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

Else
    Exit Sub

Answer 1

Для того, чтобы проверить все значения, вам нужно перебрать столбец.В моем примере предполагается, что данные содержат не более 100 000 строк и что вы проверяли наличие «=» для включения ... addapt по мере необходимости.

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