Заполните Specifi c текст для указанного столбца c

Question

Я новичок ie здесь, в Stackoverflow и в поле VBA. На самом деле мне нужна помощь с моим кодом.

Я создал VBA (макрос), и кажется, что в моем коде его нет.

Сценарий:

, если в столбце B3 есть ответ (либо: «FLAT», либо «PER»), должен применяться ко всем столбцам, которые совпадают в столбце A3

для пример

если от A3 до A500, то от B3 до B500 также есть ответ (либо: «FLAT», либо «PER»).

Sub exe()

    Dim number As Integer, result As String

    number = Range(“a1”).Value

    If number <= 1 Then

    result = “Flat”

    Else: result = “Per”

    End If

    Range(“b1”).Value = result

End Sub

Answer 1

Вы ищете что-то вроде этого:

Sub exe()

    Dim LastRow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow

            If .Range("A" & i).Value = 0.5 Then
                .Range("B" & i).Value = "FLAT"
            ElseIf .Range("A" & i).Value = 2 Then
                .Range("B" & i).Value = "PER"
            End If

        Next i

    End With

End Sub