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

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

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

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

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

在模块中复制粘贴以下代码：Option ExplicitDim i%, j%, m%, n%Sub RHigh()    i = ActiveCell.Row    j = ActiveCell.Column    Cells(i, j).EntireRow.Select    m = InputBox('请输入行高数值(单位为cm)')    Selection.RowHeight = 28.25 * mEnd SubSub CWidth()    i = ActiveCell.Row    j = ActiveCell.Column    Cells(i, j).EntireColumn.Select    n = InputBox('请输入列宽数值(单位为cm)')    Selection.ColumnWidth = 4.38 * nEnd Sub

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

实现行高列宽设置，选择需要调整行的任一单元格，点击“行高 cm”按钮即可，本教材以设置第三行行高成1cm为例。PS：调整列宽方法类似，篇幅有限，这里就不列举了。