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来手动调整当前列宽。这就会包含列头中的格式数据，让列宽更精确地自适应。

透视神器！哈糖大菠萝挂法，we... 透视神器！哈糖大菠萝挂法，wepoker永久免费脚本，细节揭秘（有挂秘笈）；1、点击下载安装，wep...

透视系统！wepoker私人局... 透视系统！wepoker私人局透视方法，wepoker透视苹果系统（透视）2025版教程（有挂细节）...

透视辅助！德扑圈透视挂，wep... 透视辅助！德扑圈透视挂，wepoker有透视底牌吗，我来教教你（有挂秘籍）wepoker有透视底牌吗...

透视工具！wepoker怎么设... 透视工具！wepoker怎么设置透视，wepoker底牌透视（透视）AI教程（有挂方法）1、wepo...

透视黑科技！aapoker透视... 透视黑科技！aapoker透视怎么用，werplan怎么作弊，详细教程（有挂详情）；1、透视黑科技！...

透视软件！wepoker透视脚... 透视软件！wepoker透视脚本视频，wepoker智能辅助插件（透视）攻略方法（有挂细节）1、we...

透视教程！有哪些免费的wpk作... 透视教程！有哪些免费的wpk作弊码，菠萝辅助器免费版的特点，必赢方法（有挂方法）透视教程！有哪些免费...

透视透视！wepoker透视是... 透视透视！wepoker透视是真的吗，wepoker底牌透视（透视）科技教程（有挂脚本）；wepok...

透视苹果版！德州机器人代打脚本... 透视苹果版！德州机器人代打脚本，wepoker私人局辅助挂，教你攻略（有挂详情）1、这是跨平台的德州...

透视存在！wepoker黑侠辅... 透视存在！wepoker黑侠辅助器，wepoker辅助器是真的吗（透视）德州教程（有挂细节）1、we...