本示例将工作表 sheet1 中每隔一行的行高设置为 4 磅。

For Each rw In ActiveWorkbook.Worksheets("Sheet1").Rows

    If rw.Row Mod 2 = 0 Then

        rw.RowHeight = 4

    End If

Next rw