Excel所有行,不管以前行高多少,再原有基础上统一增加一个固定值

Question

如题所述

Answer 1

Sub Test()
    For r = 1 To ActiveSheet.UsedRange.Rows.Count
        Rows(r & ":" & r).RowHeight = Rows(r & ":" & r).RowHeight + 5
    Next
End Sub

在原有的基础上统一增加5。