Оновіть макрос, щоб розширити висоту кожного рядка на X пікселів

Це добре працює, щоб встановити всі рядки на 25 пікселів.

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

Але я хочу взяти існуючу висоту рядка і додати до неї 10.

Отже, щось на кшталт цього псевдокоду:

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

Це можливо? Намагалися розібратися в синтаксисі, але не пощастило.

На жаль, не існує простого способу зробити це одним твердженням. Так само, як і в самому 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

Спробуйте це:

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