1、新建一个Excel文档，另存为xlsm格式。
2、插入形状，绘制设置”行高“的按钮，编辑文字为：行高 cm。
3、适当美化按钮，并复制一个，命名为：”列宽 cm“。
4、切换到VBA界面，插入一个模块，不清楚的朋友可以参考以下链接：
5、在模块中复制粘贴以下代码：Option ExplicitDim i%, j%, m婊剧琏兄%, n%Sub RHigh() i = ActiveCell.Row j = Act足毂忍珩iveCell.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
6、为形状指定对应的宏。行高对应RHigh()，列宽对应CWidth()。
7、实现行高列宽设置，选择需要调整行的任一单元格，点击“行高 cm”按钮即可，本教材以设置第三行行高成1cm为例。PS：调整列宽方法类似，篇幅有限，这里就不列举了。
