vba如何调整单元格行间距函数（VBA常用技巧之设置单元格的行高列宽）

我们致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，一起成长为一样的经验达人根据二八定律，学好这excel VBA，就能完成80%的工作每天学习一点Excel VBA知识点，我们一起共同进步，接下来我们就来聊聊关于vba如何调整单元格行间距函数?以下内容大家不妨参考一二希望能帮到您!

vba如何调整单元格行间距函数

我们致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，一起成长为一样的经验达人。根据二八定律，学好这excel VBA，就能完成80%的工作。每天学习一点Excel VBA知识点，我们一起共同进步。

我们在一般情况下单元格的行高列宽都是以磅为单位进行设置的，也可以使用英寸和厘米计量单位设置单元格的行高列宽，如下面的代码 所示。

#001 Sub RngToPoints()

#002 With Range("A1")

#003 .RowHeight = Application.CentimetersToPoints(2)

#004 .ColumnWidth = Application.CentimetersToPoints(1.5)

#005 End With

#006 With Range("A2")

#007 .RowHeight = Application.InchesToPoints(1.2)

#008 .ColumnWidth = Application.InchesToPoints(0.3)

#009 End With

#010 End Sub

代码解析：

RngToPoints过程以英寸和厘米计量单位设置单元格的行高列宽。

第3、4行代码使用CentimetersToPoints方法以厘米为计量单位设置A1单元格的行高列宽。CentimetersToPoints方法将计量单位从厘米转换为磅（一磅等于 0.035 厘米），语法如下：

expression.CentimetersToPoints(Centimeters)

参数expression是必需的，返回一个Application对象。

参数Centimeters是必需的，指定要转换为磅值的厘米值。

第5、6行代码使用InchesToPoints方法以英寸为计量单位设置A2单元格的行高列宽。InchesToPoints方法将计量单位从英寸转换为磅，语法如下：

expression.InchesToPoints(Inches)

参数expression是必需的，返回一个Application对象。

参数Inches是必需的，指定要转换为磅值的英寸值。

运行RngToPoints过程结果如图 11‑6所示。

灵活设置单元格的行高列宽

如果你在工作中还需要设计其他的表格模板，都可以留言，我们会根据大家需求来整理相关的学习资料，目的只有一个，那就是学好Excel，提高工作效率！