sub userset() Dim i&, r As Range Set r = Range("a1") For i = 1 To 10 r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5 Next i End Sub 5、点击工具栏的绿色箭头,即可。本回答被网友采纳
第3个回答 2014-04-28
录制以下一宏“ Dim i&, r As Range Set r = Range("a1") For i = 1 To 10 r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5 Next i End Sub ”,执行这宏是对(自1行开始,至以下第10行,即:1至10行)每一行分别将原行高增加5磅。(操作前及执行后结果如图)。【注:你根据实际需要,对应改一下该宏;或者你发材料到我邮箱,我替你改一下亦可。】