VBA: Другое заявление - что такое правильный код?

Question

Я новичок здесь, в Stackoverflow, я пытался создать код VBA.

У меня есть набор данных, которые я хотел создать для этого макрос (vba), так что вот сценарий и код.

это что-то вроде vlook up без формулы

Столбец A - это значение поиска, Столбец E и F - массив таблицы, Столбец F - индекс столбца

---

Sub Nested()
Dim i As Integer
Dim prodID As String
Dim nRows As Integer


For i = 0 To nRows - 1

prodID = Range(a3).Offset(i, 0).Value
rng = Range(“B3”).Offset(i, 0).Value

If rng = "1" Then

If rng <= 1 Then
Range(“C3”).Offset(i, 0).Value = Range(“F1”).Value

ElseIf rng > 1 Then
Range(“C3”).Offset(i, 0).Value = Range(“F2”).Value


End If

End Sub

Это шаблон

Я пытаюсь выяснить, что является правильным для этого, но я не смог найти он

Answer 1

Попробуйте, но вам нужно заполнить переменную nRows.

Sub Nested()

    Dim rng As Range, i As Long, nRows As Long, prodID As String

    For i = 0 To nRows - 1

        prodID = Range("A3").Offset(i, 0).Value
        rng = Range("B3").Offset(i, 0).Value

        Select Case True
            Case rng <= 1:
                Range("C3").Offset(i, 0).Value = Range("F1").Value

            Case rng > 1:
                Range("C3").Offset(i, 0).Value = Range("F2").Value

            Case Else:
                'Rng = 1 - do nothing
        End Select
    Next i
End Sub