Как сделать перебор диапазона ячеек

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...

Для того чтобы перебрать ячейки в экселе можно использовать цикл For Each, пример использования смотрите ниже.

Код макроса с «For Each»


Sub Macros()

  Application.DisplayAlerts = False
  row = 1 'начальная строка
  col = 2 'начальная колонка
  max_rows = 2000 'максимальное кол-во строк

  For Each cel In Range(Cells(row, col), Cells(max_rows, col))

    'неоходимые действия

    cel.Value = '-'

  Next cel

  Application.DisplayAlerts = True

End Sub

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *