Excel列自动宽度

我正在用VB6编写一个应用程序，需要将Excel工作表的列宽调整为该列内容的最大大小。属性

Autofit

仅使列的宽度与其标题的宽度相同。但我希望它是在其内容的最大规模的基础上完成的

---

有没有办法做到这一点？

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

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

---

希望，这有助于……

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

---

请参见

您的代码应该如下所示：

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

输入您的文本

将鼠标放在列标题的右上边框上

当鼠标指针改变时

然后用控制键双击

您的列宽将根据内容增加

---

此示例更改

Sheet1

上

A

到

I

列的宽度，以实现最佳匹配：

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

---

此示例仅基于单元格内容

A1:E1

，更改

Sheet1

上

A

到

E

列的宽度，以实现最佳匹配：

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

---

请回顾您之前的问题，并在用户询问如何通过编程将宽度增加到最大值（而不是用户将如何手动增加宽度）的适当位置标记为答案。