1、首先，打开或者新建一个Excel表格，如下图所示。
2、然后，按下Alt+F11组合键，打开VBA编辑界面，点击左侧相应的工作表，出现右侧空白的代码编辑区，如下图所示。
3、编写代码如下图所示：
Sub 鱼木混猪()
Rows(1).RowHeight = 10'将第一行行高设置为10
For i = 3 To 10 Step 2
Rows(i).RowHeight = 10'利用循环将3到10行中的奇数行行高设置为10
Next
End Sub
代码的作用是将1到10行中的奇数行行高设置为10。
4、将光标放在代码中间，点击“运行子程序”，如下图所示。
5、关闭VBA界面，返回Excel，就可以看到B1:D10内的原本合并的单元格都取消了合并，如下图所示。
1、1.打开Excel表格；
2.按下Alt+F11；
3.输入代码，主要代码为：
Rows(1).RowHeight = 10
4.点击“运行子程序”；
5.就将相应地行高进行了设置。
