作者：乔山办公网日期：
返回目录：excel表格制作
1、首先我们打开电脑里的excel表格软件打开一个要设置列宽的表格。
复查看大图" class="ikqb_img_alink">
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】选项。
3、然制后我们会进入VBA编辑界面，点击菜单栏【插入】，在其下拉菜知单中，选择【模块】选项。
4、然后软件界面会弹出模块编辑窗口。
5、然后我们在代码编辑窗口输入以下代码。
6、然后我们在VBA窗口，点击【运行】按钮。
6、如下图所示，调整后的表格列宽已经道设置成功了。
Excel的行高和列宽单位不一样是设置错误造成的，解决方法为：
1、新建一新表，任zd意选中一单元格，如B4。
2、查看以下选中单元格（B4）的行高与列宽，如图，默认行高 13.5 列高 8.38。
3、改“视图”模式为“页面布局”模式。
4、查看B4单元格的行高和版列宽。
5、“页面布局”模式将行高与列宽设置成相同的数值，单元格就成了正方形状了。
6、最后，再切换视图模式到权普通模式查看行高。
用录制宏的方法，看看录制得到的宏代码，应该可以理解；
1，先采用录制宏。
2，对某些内容进行“自动行高”的设置。
3，停止录制宏。
4，打开宏，可以得到相应的代码。
根据帮助文件，rowheight单位为百磅，columnwidth单位为字符宽
Private Sub 把100x100范围调节度为10_Click()
Dim hei As Double, wid As Double
Dim num As Double
hei = 0.035267: wid = 0.214975
num = 1
Range("A1").Resize(100, 100).RowHeight = num / hei
Range("A1").Resize(100, 100).ColumnWidth = num / wid
MsgBox "调节完成!"
End Sub
从网上查到，1单位rowheight=0.035267 cm,1单位columnwidth＝0.214975cm
用上面的程回序置换一下就好了~结果单元格高度和宽度都为1cm
你也可以直接用0.035267/0.214975来直接设置两个属性答