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、不需要AI权限，帮助你...

分享认知透视器app!温岭逸趣... 分享认知透视器app!温岭逸趣麻将多功能透视器app，温岭逸趣麻将真是是有透视器app1）温岭逸趣麻...

专业讨论作弊器插件!欢乐划水麻... 专业讨论作弊器插件!欢乐划水麻将多功能作弊器插件，欢乐划水麻将果然真的是有作弊器插件1、用户打开应用...

最新技巧外挂攻略!逍遥皖北棋牌... 最新技巧外挂攻略!逍遥皖北棋牌多功能外挂攻略，逍遥皖北棋牌都是存在有外挂攻略亲，关键说明，逍遥皖北棋...

今日公布辅助app!乐通多功能... 今日公布辅助app!乐通多功能辅助app，乐通一直有辅助app1、乐通破解器简单，乐通机器人操作，乐...

揭秘一下辅助攻略!青橙竞技多功... 揭秘一下辅助攻略!青橙竞技多功能辅助攻略，青橙竞技一贯真的是有辅助攻略1、玩家可以在青橙竞技线上大神...

推荐一款透视挂技巧!无锡麻将多... 推荐一款透视挂技巧!无锡麻将多功能透视挂技巧，无锡麻将原来有透视挂技巧1、起透看视无锡麻将辅助软件...