Вложенные циклы для добавления числа определенной длины

Question

Это пример моей ситуации. У меня есть файл с 100 000 строк, и я должен пометить первый 2000 с 1, второй 3000 с 2 и т. Д. До последней партии с 50. На самом деле, файл не имеет 100 000, но является кратным партии пакетов чтобы повторить это 3190.

Код, с которого нужно начать, выглядит следующим образом:

Sub B()
Dim i As Long
Dim q As Integer
For i = 1 To 169070 Step 3190
    Cells(i, 1).Value = i + 1
Next i
End Sub

Answer 1

Попробуйте

=FLOOR(ROW()/1000,1)+1

Просто добавьте в "Row ()" количество строк над вашей начальной точкой.