VBA заполнить столбец условно

Question

Я использую Excel для автоматизации очистки данных.Я хочу создать столбец под названием «Группа 1».У меня есть еще один столбец Имя и еще одна фамилия.Если имя и фамилия не заполнены, заполните столбец группы 1 с помощью Да.

Answer 1

Эти два сработали для меня ... Надеюсь, это поможет, вам не нужен VB6 для этого:

Sub Macro1()
With ActiveWorkbook.Sheets(1):
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For i = 2 To LastRow
    If Range("A" & i) = "" Or Range("B" & i) = "" Then
        Range("C" & i) = "No"
    Else: Range("C" & i) = "Yes"
    End If
    Next
End With
End Sub

Sub Macro2()
With ActiveWorkbook.Sheets(1):
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("C2").FormulaR1C1 = "=+IF(CONCATENATE(RC[-2]&RC[-1])="""",""Yes"",""No"")"
    Range("C2").AutoFill Destination:=Range("C2:C" & LastRow)
End With
End Sub