Для l oop в excel vba не отображаются значения в ячейке

Question

Я пытаюсь использовать "для l oop", чтобы получить определенные значения c, код работает отлично, но значения не печатаются по назначению. субкод, где проблема, выглядит так:

lastRow = Range("H" & Rows.Count).End(xlUp).Row
For i = 5 To lastRow

    radius = Range("C" & i).Value
    spacing = Range("L" & i).Value

    Select Case radius
      Case 0 To 450
        spacing = 6
      Case 451 To 750
        spacing = 9
      Case 751 To 2000
        spacing = 18
    End Select

Next i

Answer 1

В вашем коде вы сохраняете значение от Range("L" & i).Value до переменной spacing. Затем в вашем For l oop вы присваиваете новое значение переменной , но не устанавливаете диапазон (ячейка) в это значение.

Ниже, хотя и дрянной, будет работать для вас.

lastRow = Range("H" & Rows.Count).End(xlUp).Row
For i = 5 To lastRow

    radius = Range("C" & i).Value

    Select Case radius
      Case 0 To 450
        Range("L" & i).Value = 6
      Case 451 To 750
        Range("L" & i).Value = 9
      Case 751 To 2000
        Range("L" & i).Value = 18
    End Select

Next i