Excel列自动宽度

Question

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

有没有办法实现这个目标？

Answer 1

自动调整功能应该可以正常工作，只需确保：

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

希望，这有助于......

Answer 2

您的代码应如下所示：

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

Answer 3

此示例将A上的列I的宽度更改为Sheet1，以达到最佳效果：

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

此示例仅根据单元格A的内容更改E上Sheet1列的宽度，以实现最佳匹配：

A1:E1

Answer 4

自动调整仅适用于数字和日期。

请参阅Excel 2003 XML format - AutoFitWidth not working

Answer 5

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