Excel列autowidth

我正在编写一个应用程序在VB 6中，我需要调整Excel工作表的列宽，以在该列中的最大大小的内容。 属性Autofit只会使列的宽度与其标题的宽度一样宽。 但是我希望它能根据其内容的最大尺寸来完成。

有没有办法做到这一点？

Answer 1

自动调整function应该可以正常工作，只要确保：

• 首先插入所有数据，调用autofit
• 在整个列上调用autofit，而不是单个单元格（例如.Cells（1,1）.EntireColumn.Autofit（）

希望这可以帮助…

Answer 2

你的代码应该是这样的：

 Columns("D:D").EntireColumn.AutoFit 

Answer 3

此示例更改Sheet1 A到I的宽度以实现最佳匹配：

 Worksheets("Sheet1").Columns("A:I").AutoFit 

本示例仅基于单元格A1:E1的内容更改Sheet1 A到E的宽度以实现最佳拟合：

 Worksheets("Sheet1").Range("A1:E1").Columns.AutoFit 

Answer 4

自动适合只能用于数字和date。

请参阅Excel 2003 XML格式 – AutoFitWidth不起作用

Answer 5

1. input你的文字
2. 将鼠标放在列标题的右上边框上
3. 当鼠标指针改变时
4. 然后用控制键双击
5. 你的列宽将根据内容增加….