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

第一分钟了解!朋友局app辅助... 第一分钟了解!朋友局app辅助器下载!真是真的有辅助app(有挂方法)-哔哩哔哩1、下载好朋友局ap...

9分钟了解!微乐小程序辅助器!... 9分钟了解!微乐小程序辅助器!好像真的有辅助软件(确实有挂)-哔哩哔哩1、点击下载安装，微乐小程序辅...

第四分钟了解!游戏辅助制作器!... 第四分钟了解!游戏辅助制作器!竟然一直都是有辅助攻略(有挂方针)-哔哩哔哩1、进入游戏-大厅左侧-新...

四分钟了解!微信开发辅助工具!... 四分钟了解!微信开发辅助工具!总是真的是有辅助脚本(证实有挂)-哔哩哔哩1、下载好微信开发辅助工具透...

七分钟了解!奇迹陕西游戏辅助!... 七分钟了解!奇迹陕西游戏辅助!其实一直总是有辅助app(有挂实锤)-哔哩哔哩1、下载好奇迹陕西游戏辅...

第6分钟了解!决战十三水免费辅... 第6分钟了解!决战十三水免费辅助!切实真的是有辅助工具(有挂讲解)-哔哩哔哩1）决战十三水免费辅助免...

一分钟了解!广东雀神祈福真的有... 一分钟了解!广东雀神祈福真的有用挂!其实真的有辅助插件(有挂秘诀)-哔哩哔哩1、该软件可以轻松地帮助...

第8分钟了解!堆金城陕西辅助器... 第8分钟了解!堆金城陕西辅助器!确实真的是有辅助方法(有挂解密)-哔哩哔哩1、下载好堆金城陕西辅助器...

第7分钟了解!心悦海南苹果版辅... 第7分钟了解!心悦海南苹果版辅助!总是一直总是有辅助脚本(有挂辅助)-哔哩哔哩1、心悦海南苹果版辅助...

第9分钟了解!中至余干六副里!... 第9分钟了解!中至余干六副里!切实是有辅助方法(有挂神器)-哔哩哔哩1、很好的工具软件，可以解锁游戏...