Обновление макроса для увеличения высоты каждой строки на X пикселей

Question

Это прекрасно работает, чтобы установить все строки на 25 пикселей.

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = 25
End Sub

Но я хочу взять существующую высоту строки и добавить 10 к ней.

Так что-то вроде этого псевдокода:

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = Rows(x).RowHeight + 10
End Sub

Это возможно? Я пытался выяснить синтаксис для него, но не повезло.

Answer 1

К сожалению, не существует простого способа сделать это. Как и в самом Excel, нет способа выделить несколько строк и перетащить / установить высоту строки с шагом отдельных высот.

Самое простое решение - перебрать все строки:

Option Explicit
'v0.1.0
Sub sbChangeRowHeightMulti()
  Application.ScreenUpdating = False
    Dim rowRow As Range
    For Each rowRow In Rows("3:1000")
      rowRow.RowHeight = rowRow.RowHeight + 10
    Next rowRow
  Application.ScreenUpdating = True
End Sub

Answer 2

Попробуй это:

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = Rows("3:1000").RowHeight + 10
End Sub