VBA如何自动调整列宽

下面代码：Workbooks(FileName1).Worksheets(ErrorName).Range("a1:b20").Columns.AutoFit 无法自动调整一个区域的列宽，大神看一下是怎么回事

2026年09月24日 10:19

有4个网友回答

网友（1）：

1、打开Excel文档，选中需要调整的表格。

2、在弹出的菜单栏中点击格式选项，会出现出现下拉菜单。

3、单击“自动调整列宽”就可以看到调整完毕。

4、也可以右击表格，进入设置单元格格式。

5、选择对齐，然后单击自动换行即可。

网友（2）：

怎么自动调整列宽呢？

网友（3）：

ALT +F11→插入模块→在模块中输入以下代码:

　　Sub 调整列宽及行高()
　　Range("A1:H28").Columns.AutoFit
　　End Sub

网友（4）：

Workbooks(FileName1).Worksheets(ErrorName).Range("a:b").Columns.AutoFit