Как изменить выбранный диапазон?

Question

У меня есть макрос, который увеличивает значение в выбранной ячейке.

Sub add_1_to_the_selected_cell() 
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1 
End Sub 

и я хочу написать макрос, который изменяет не только одну ячейку, но и выбранный диапазон. Как это сделать?

Answer 1

Вместо использования Activecell вам просто нужно будет использовать Range object и For Each statement.

For Each c In Range("A1:C3") 
    c.Value = c.Value + 1 
Next c 

Если есть пустые ячейки в пределах диапазона, который вы не хотите, чтобы добавить 1 на, то просто добавьте в If заявлении.

If Not c.Value = vbNullString Then

EDIT:

Если вы хотите, чтобы иметь возможность выбрать диапазон, а затем запустить макрос, вы можете назначить свой выбор на Range, а затем перебирать Range.

Sub add1() 
    Dim rngSelection As Range 
    Set rngSelection = Selection 

    For Each c In rngSelection 
     If Not c.Value = vbNullString Then 
      c.Value = c.Value + 1 
     End If 
    Next c 
End Sub 

В зависимости от размера Range вы хотите, чтобы выполнить это снова, это может быть более эффективным, чтобы загрузить значения ячеек в массив и выполнять вычисления в массиве.