Excel一键实现用厘米（cm）设置行高和列宽技巧

1、新建一个Excel文档，另存为xlsm格式。

2、插入形状，绘制设置”行高“的按钮，编辑文字为：行高 cm。

3、适当美化按钮，并复制一个，命名为：”列宽 cm“。

4、切换到VBA界面，插入一个模块，不清楚的朋友可以参考以下链接：

5、在模块中复制粘贴以下代码：

Option Explicit

Dim i%, j%, m%, n%

Sub RHigh()

    i = ActiveCell.Row

    j = ActiveCell.Column

    Cells(i, j).EntireRow.Select

    m = InputBox("请输入行高数值(单位为cm)")

    Selection.RowHeight = 28.25 * m

End Sub

Sub CWidth()

    i = ActiveCell.Row

    j = ActiveCell.Column

    Cells(i, j).EntireColumn.Select

    n = InputBox("请输入列宽数值(单位为cm)")

    Selection.ColumnWidth = 4.38 * n

End Sub

6、为形状指定对应的宏。行高对应RHigh()，列宽对应CWidth()。

7、实现行高列宽设置，选择需要调整行的任一单元格，点击“行高 cm”按钮即可，本教材以设置第三行行高成1cm为例。

PS：调整列宽方法类似，篇幅有限，这里就不列举了。