（EXCEL VB初体验）EXCEL自动行高再加高，超详细

举个栗子（我用的是Microsoft Office 2016,需要完成的操作是：C列高度+5。）：

敲重点：文件格式必须是Excel 启用宏的工作薄，后缀为：xlxm

1.快速访问工具栏新增开发工具栏（已有请忽略）。

   操作顺序：下拉箭头---其他命令---自定义功能区---开发工具---确认。具体操作如下图：

 

2.录制宏操作（操作顺序很重要哦）

   1）点击C列以外的任一格

   2）点击开发工具

   3）点击录制宏，输入宏基本信息。可直接点击保存，使用默认信息。

   4）点击需要操作任一一格

   5）点击停止录制

3. 编辑执行宏操作

    1）点击宏，找到刚刚录制的宏，点击编辑按钮

2）弹出VB编辑页面，删除原有代码，贴上下面内容:  （其中，startrow 表示从第几行开始,nrow 表示循环多少行）。crtl+s保存后，关闭页面。

Sub HeightTo()
 y = InputBox("请输入数字", "行高增加", 5)
 Application.ScreenUpdating = False
 With Selection
    startrow = 2
    nrow = 100
 End With
 For i = startrow To startrow + nrow - 1
    'If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
        Rows(i).RowHeight = Rows(i).RowHeight + y
    'End If
 Next i
 Application.ScreenUpdating = True
End Sub

 3）点击宏---弹出框找到需要的宏---执行

 

至此大功告成。nice~