如何在Excel中自动化非并发特定行高度

好吧，我知道有这个密码

Sub sbChangeRowHeight()

'Changing the 3rd row Height
Rows(3).RowHeight = 25

End Sub

用于调整一行中的一个高度

这个用于调整多个高度（一排）

如果我希望每个“特定数量”的行都具有特定的高度，该怎么办？例如，无论是否有内容，每六行自动为25。或者，如果不可能，可以同时编辑非并发行（第6行、第8行等）

请逐字逐句地写下ELI5或写出任何代码，如果可能的话，我不编码，我是哑巴LMAO。非常感谢你

谢谢

---

-Rachel

您可以尝试类似的方法-根据需要更改起始/结束行、高度和间隔

子变更高度（）
变暗rng As范围
双倍调暗dblHeight
暗淡的lngStartRow和长的一样
昏暗的长廊
暗淡无光
将idxRow设置为长
dblHeight=25
lngStartRow=1
lngEndRow=100
lngInterval=5
对于idxRow=lngStartRow到lngEndRow步骤lngInterval
如果rng不算什么，那么
设置rng=行（idxRow）
其他的
设置rng=联合（rng，行（idxRow））
如果结束
下一个idxRow
rng.RowHeight=dblHeight
端接头

您可以使用for循环：

for i=3到100步骤6

然后

行（i）。RowHeight=25

步骤6将使我一次跳过6行。嗨，斯科特。谢谢你的帮助。我做了一个它说错误无效的外部程序。输入后我按了f5，然后保存了宏，这出现在I=3到100步骤4行（I）中。RowHeight=83.25 Sub Test1（）End Sub我不知道该怎么做，我只是为了工作而做。代码应该在右边的两行上（一行为i=3到100步骤4，另一行为行（i）。rowheight=3？谢谢@ScottCraner

Sub sbChangeRowHeightMulti()

'Changing the 3rd-25the row Height
Rows("3:25").RowHeight = 25

End Sub