Sub AA() Rows("1:6").Select '1:6行 X = Rows("1:6").RowHeight Rows("1:6").Select Selection.RowHeight = X + 8 '行高+8End Sub
自己修改区域
直接录制宏，然后加个循环
