举个栗子(我用的是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~