求excel大神给编写一个VBA代码

本人是VBA代码小白,因为打印的时候经常会有压线情况,所以求大神给编一个先自动调整行高,然后每行行高自动加8的代码。谢谢大神们!

Sub AA()
 Rows("1:6").Select '1:6行
   X = Rows("1:6").RowHeight
    Rows("1:6").Select
    Selection.RowHeight = X + 8 '行高+8
End Sub

自己修改区域

温馨提示:答案为网友推荐,仅供参考
第1个回答  2019-03-31
直接录制宏,然后加个循环
相似回答