excel中使用vba来设置行高列宽

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub 设置行高列宽()dim w as integer

dim h as integer    

w = inputbox("请输入列宽")

h = inputbox("请输入行高") 

ActiveWindow.RangeSelection.ColumnWidth = w            ActiveWindow.RangeSelection.RowHeight = hEnd Sub

3、这里我们输入两个变量w和h分别声明为整数变量，w为宽，h为高。

4、这两个变量我们使用inputbox函数的输入值来获取，这样比较灵活，如果有固定的格式需求，我们可以将变量值直接赋予，这样也可以提高效率。

5、ActiveWindow.RangeSelection我们激活当前窗口并是对当前选择的单元格区域进行属性定义。这里分别定义行高和列宽。

6、实际使用时，最好先新建一个按钮并指定宏，然后在选取区域单元格后，点击按钮运行宏，就能得到我们想要的结果了。