AutoFit无法正常工作（使用表头的宽度进行AutoFit） _程序开发

创始人

2024-11-12 13:30:18

0次

如果您有以下代码：

Sub AutoFitColumns()
    'AutoFit columns
    Cells.EntireColumn.AutoFit
End Sub

这时候可能就遇到了AutoFit无法正常工作的问题。原因是Cells.EntireColumn.AutoFit仅使用了列中的无格式数据进行自适应，而不使用列头中的任何格式数据。这就导致了并没有按照列头的宽度自动调整列宽度。

为了解决这个问题，您需要使用以下代码来手动自适应列：

Sub ManualAutoFitColumns()
    Dim c As Range
    For Each c In Range("A1:Z1")  '目标范围，这里以A1到Z1为例
        c.EntireColumn.AutoFit
    Next c
End Sub

在这个代码片段中，我们首先定义了一个Range对象。For Each语句会遍历这个对象内的每一个列头范围，包括A1到Z1。在循环体中，我们使用c.EntireColumn.AutoFit来手动调整当前列宽。这就会包含列头中的格式数据，让列宽更精确地自适应。

6分钟辅助！hhpoker是真... 6分钟辅助！hhpoker是真的假的，hhpoker真的有透视吗，演示教程（真是有挂）1、每一步都需...

第七分钟辅助！we poker... 第七分钟辅助！we poker插件，we poker免费辅助器，手筋教程（有挂方式）暗藏猫腻，小编详...

七分钟辅助！aa poker辅... 七分钟辅助！aa poker辅助包，pokemmo脚本辅助器下载，讲义教程（有挂秘籍）1、pokem...

第四分钟辅助！wepoker辅... 第四分钟辅助！wepoker辅助器安装包定制，aapoker透视脚本，大纲教程（有挂总结）所有人都在...

第四分钟辅助！wpk透视辅助靠... 第四分钟辅助！wpk透视辅助靠谱吗，wepoker透视苹果系统，诀窍教程（有挂猫腻）；运wepoke...

七分钟辅助！aapoker透视... 七分钟辅助！aapoker透视脚本入口，wejoker开挂，学习教程（有挂教程）1、打开软件启动之后...

第四分钟辅助！淘宝买wepok... 第四分钟辅助！淘宝买wepoker透视有用吗，wpk俱乐部怎么作弊，积累教程（有挂规律）1、下载好淘...

6分钟辅助！we-poker软... 6分钟辅助！we-poker软件，购买的wpk辅助在哪里下载，积累教程（有挂技巧）购买的wpk辅助在...

第2分钟辅助！如何下载wepo... 第2分钟辅助！如何下载wepoker安装包，newpoker怎么安装脚本，教程书教程（今日头条）1、...

4分钟辅助！wepoker钻石... 4分钟辅助！wepoker钻石怎么看底牌，wepoker辅助器有哪些功能，法门教程（有挂详细）该软件...