Как сделать цикл для макроса для проверки всего столбца?

Question

[figna1320]

Есть макрос, который заполняет ячейки по условию, как сделать так чтоб он проверял не определенное количество ячеек, а весь столбец? Столбец будет фиксированный

Sub Result()
Dim cell As Range
For Each cell In Range("A1:A1000").Cells
If cell.Value >= 3000 Then
cell.Value = "1"
ElseIf cell.Value >= 2000 Then
cell.Value = "2"
ElseIf cell.Value >= 1000 Then
cell.Value = "3"
ElseIf cell.Value >= 700 Then
cell.Value = "4"
ElseIf cell.Value >= 500 Then
cell.Value = "5"
ElseIf cell.Value >= 300 Then
cell.Value = "7"
ElseIf cell.Value >= 100 Then
cell.Value = "8"
ElseIf cell.Value >= 50 Then
cell.Value = "10"
ElseIf cell.Value >= 20 Then
cell.Value = "12"
ElseIf cell.Value <= 19 Then
cell.Value = "15"
End If
Next
End Sub

Answer 1

[Sergey В.]

В начале функции допишите:
Dim lastrow as Long
lastrow = Cells(Rows.Count,"A").End(xlUp).Row

И измените
Range("A1:A1000").Cells
На
Range("A1:A" & lastrow).Cells

Будет работать, если столбец А не содержит пустых ячеек.

Много других способов определения последней строки таблицы: https://techarks.ru/qa/vba/kak-poluchit-kolichestv...