本示例将工作表 sheet1 中每隔一行的行高设置为 4 磅。
For Each rw In ActiveWorkbook.Worksheets("Sheet1").Rows
If rw.Row Mod 2 = 0 Then
rw.RowHeight = 4
End If
Next rw