一个Sheet中有N个标签是动态生成的，需要在生成标签后将标签的第一行和最后一行的行高设置为一个值，标签中间的几行设置为一个行高值。参考如下：

1.             For i = 17 To 2000 Step 12
   
2.                 Range("D" & i & ":I" & i).RowHeight = 8.3
   
3.                 Range("D" & i + 10 & ":I" & i + 10).RowHeight = 8.3
   
4.                 Range("D" & i + 1 & ":I" & i + 9).RowHeight = 18.8
   
5.             Next

复制代码

一个Sheet中有N个标签是动态生成的，需要在生成标签后将标签的第一行和最后一行的行高设置为一个值，标签中间的几行设置为一个行高值。参考如下：

1.             For i = 17 To 2000 Step 12
   
2.                 Range("D" & i & ":I" & i).RowHeight = 8.3
   
3.                 Range("D" & i + 10 & ":I" & i + 10).RowHeight = 8.3
   
4.                 Range("D" & i + 1 & ":I" & i + 9).RowHeight = 18.8
   
5.             Next

复制代码