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

4分钟外挂！边锋微信小程序，四... 4分钟外挂！边锋微信小程序，四川途游辅助软件下载，2025新版（有挂方式）-哔哩哔哩1、下载好四川途...

第4分钟普及！家乡大二辅助，四... 第4分钟普及！家乡大二辅助，四川游戏家园通用辅助（其实有挂）-哔哩哔哩1、四川游戏家园通用辅助系统规...

第四分钟外挂！皮皮跑胡子修改器... 第四分钟外挂！皮皮跑胡子修改器，友友联盟免费辅助器，安装教程（有挂方法）-哔哩哔哩1、进入到友友联盟...

第8分钟详情！方片十三张源码，... 第8分钟详情！方片十三张源码，河洛杠次脚本开发（一贯有挂）-哔哩哔哩1）河洛杠次脚本开发辅助挂：进一...

1分钟外挂！传送屋激k有挂吗，... 1分钟外挂！传送屋激k有挂吗，兴动互娱辅助工具，解密教程（有挂分析）-哔哩哔哩1、超多福利：超高返利...

第6分钟解谜！山西扣点点智能辅... 第6分钟解谜！山西扣点点智能辅助器软件，决战卡五星辅助（一直是真的挂）-哔哩哔哩1、玩家可以在山西扣...

第五分钟推荐！开心泉州免费辅助... 第五分钟推荐！开心泉州免费辅助器，友友联盟免费辅助器（真是真的有挂）-哔哩哔哩1、完成开心泉州免费辅...

六分钟外挂！指尖四川小程序辅助... 六分钟外挂！指尖四川小程序辅助，八闽福建辅助，微扑克教程（存在有挂）-哔哩哔哩暗藏猫腻，小编详细说明...

第4分钟必备！潮汕木虱辅助下载... 第4分钟必备！潮汕木虱辅助下载，天天飞小鸡辅助（一贯存在有挂）-哔哩哔哩1、操作简单，无需注册，只需...

七分钟外挂！浙江宝宝游戏辅助下... 七分钟外挂！浙江宝宝游戏辅助下载，小程序牵手跑的辅助，安装教程（有挂解惑）-哔哩哔哩1）浙江宝宝游戏...