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

六分钟了解!大赢家跑得快机制(... 六分钟了解!大赢家跑得快机制(透明挂)原来真的有挂(2020已更新)(哔哩哔哩)1、任何大赢家跑得快...

技巧教程!wepoke真的有挂... 技巧教程!wepoke真的有挂(wepoke计算辅助)wepoke(一贯真的有挂)；wpk透视辅助官...

1分钟辅助！江西中至怎么做胜率... 1分钟辅助！江西中至怎么做胜率高一点，aApoker一贯真的有挂，德州论坛（有挂脚本）；1、很好的工...

微扑克游戏辅助器！微扑克wpk... 微扑克游戏辅助器！微扑克wpk有挂，WPK本来有挂，靠谱教程（有挂方法）是一款可以让一直输的玩家，快...

总算了解!中至吉安跑得快有挂吗... 总算了解!中至吉安跑得快有挂吗(辅助挂)一贯真的是有挂(2025已更新)(哔哩哔哩)1、任何中至吉安...

扑克教程!wepoke app... 大家肯定在之前wePOke或者wePOke中玩过扑克教程!wepoke app系统规律(wepoke...

二分钟发现！随意玩拼三张能破解... 二分钟发现！随意玩拼三张能破解吗，云扑克cloudpoker真是真的有挂，总结教程（有挂实操）所有人...

微扑克ai辅助！微扑克代打是真... 1、微扑克ai辅助！微扑克代打是真的，微扑克发牌规律性总结（切实真的是有挂）；详细教程。2、微扑克透...

必看攻略!雀神小程序脚本(辅助... 您好，雀神小程序脚本这款游戏可以开挂的，确实是有挂的，需要了解加微【757446909】很多玩家在这...

6分钟科普！小闲巴渝棋牌长牌攻... 6分钟科普！小闲巴渝棋牌长牌攻略，德州wpk果然真的是有挂，玩家教程（有挂解说）；1）小闲巴渝棋牌长...