Aktualisieren Sie das Makro, um jede Zeilenhöhe um X Pixel zu erweitern

Dies funktioniert gut, um alle Zeilen auf 25 Pixel zu setzen.

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

Aber ich möchte die vorhandene Zeilenhöhe nehmen und 10 hinzufügen.

Also so etwas wie dieser Pseudocode:

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

Ist das möglich? Ich habe versucht, die Syntax dafür herauszufinden, aber kein Glück.

Leider gibt es keine einfache Möglichkeit, dies zu tun. Genau wie in Excel selbst gibt es keine Möglichkeit, mehrere Zeilen auszuwählen und die Zeilenhöhe durch Ziehen / Festlegen in Schritten der einzelnen Höhen festzulegen.

Die einfachste Lösung besteht darin, alle Zeilen zu durchlaufen:

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

Versuche dies:

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