Question

VBA如何自动调整列宽

下面代码：
Workbooks(FileName1).Worksheets(ErrorName).Range("a1:b20").Columns.AutoFit

无法自动调整一个区域的列宽，大神看一下是怎么回事

Answer 1

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

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

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

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

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

Answer 2

怎么自动调整列宽呢？

Answer 3

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

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

Answer 4

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

追问

不行啊，亲。

追答

Workbooks(FileName1).Worksheets(ErrorName).Columns("A:B").EntireColumn.AutoFit