我用录制宏
Sub Macro1()
' 快捷键: Ctrl+y
'
Rows("1:1").Select
Selection.RowHeight = 30
End Sub
以上的代码可以实现第一行可以设置行高30
但我现在要实现每隔3行就要自动设置行高30？
就是第1行行高30，第5行行高30，第9行行高30，第13行行行高30......依此类推
------解决方案--------------------------------------------------------
for i = 1 to xx step 4
rows(i).rowheight=30
next i
------解决方案--------------------------------------------------------
1楼代码正确。