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

第1分钟辅助！顺欣茶楼有没有辅... 第1分钟辅助！顺欣茶楼有没有辅助，其实是有辅助脚本（有挂神器）1、在顺欣茶楼有没有辅助插件功能辅助器...

第8分钟辅助！兴动游戏辅助器开... 第8分钟辅助！兴动游戏辅助器开挂透视，竟然有辅助app（有挂秘笈）1、下载好兴动游戏辅助器开挂透视脚...

2分钟辅助！微信小程序微乐辅助... 2分钟辅助！微信小程序微乐辅助器免费下载，一贯是真的有辅助技巧（确实有挂）1、该软件可以轻松地帮助玩...

第四分钟辅助！四川麻将口诀顺口... 第四分钟辅助！四川麻将口诀顺口溜，确实有辅助器（有挂解密）亲，关键说明，四川麻将口诀顺口溜透视脚本安...

第九分钟辅助！随意玩第三方辅助... 第九分钟辅助！随意玩第三方辅助，一直是真的有辅助脚本（有挂攻略）一、随意玩第三方辅助游戏安装教程牌型...

第五分钟辅助！欢乐茶馆辅助器，... 第五分钟辅助！欢乐茶馆辅助器，一贯是真的有辅助挂（有挂技巧）1、首先打开欢乐茶馆辅助器辅助器下载最新...

第十分钟辅助！功夫川嘛辅助器是... 第十分钟辅助！功夫川嘛辅助器是真的假的，竟然是真的有辅助技巧（真的有挂）1、任何功夫川嘛辅助器是真的...

第二分钟辅助！休闲九九破解版，... 第二分钟辅助！休闲九九破解版，果然是真的有辅助插件（有挂技巧）第二分钟辅助！休闲九九破解版，果然是真...

第3分钟辅助！熊猫跑得快辅助器... 第3分钟辅助！熊猫跑得快辅助器，其实是有辅助app（有挂细节）1、熊猫跑得快辅助器公共底牌简单，熊猫...

8分钟辅助！拱趴大菠萝系统规律... 8分钟辅助！拱趴大菠萝系统规律，一贯是真的有辅助插件（有挂透明挂）1、打开软件启动之后找到中间准星的...