作者：乔山办公网日期：
返回目录：excel表格制作
点击表格区域左上角小方块，选中所有单元格。双击任意两列中间的竖线，双击任意两行中间的横线，就会自动调整为容纳现有表格内容。
对于单元格还可以设置单元格格式--自动换行，或自动缩小字体填充。
1、首先我们打开电脑里的excel表格软件打开一个要设置列宽的表格。
2、在工作表中，点击菜单栏【开发工具zhidao】，在其工具栏内，点击【visual basic】选项内。
3、然后我们会进入VBA编辑界面，点击菜单栏【插入】，在其下拉菜单中，选择【模块】选项。
4、然后软件界面会弹出模块编辑窗口。
5、然后我们在代码编辑窗口输入以下代码。
6、然后我们在VBA窗口，点击【运行】按钮。
6、如下图所示，调容整后的表格列宽已经设置成功了。
对于这个问题，你可以有一下百解决办法：
①利用单元格range的属性entireColumn
如：更改sheet2上A列单元格的度列宽为50
Sheet2.Range("a1").EntireColumn.ColumnWidth = 50→ →上面这句内话也可以用下面这句话代替
Sheet2.Range("A1").ColumnWidth = 50→ →当然也可以用下面这句话代替
sheet2.Columns("A:A").ColumnWidth =50②可以更改工作表中所有单元格的列宽，利用cells的属性cloumnWidth
Sheet2.Cells.ColumnWidth = 50
注：用以上方式也可以设置行高，容rowHeight属性，方法相同；
希望能帮到你，谢谢！