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

透视教程书!pokemmo脚本... 透视教程书!pokemmo脚本辅助(透视)pokemmo脚本辅助器下载(辅助)本来是有神器(哔哩哔哩...

透视教程书!大菠萝手游辅助(透... 透视教程书!大菠萝手游辅助(透视)epoker底牌透视(辅助)竟然存在有软件(哔哩哔哩)一、大菠萝手...

透视秘籍！wepoker辅助器... 透视秘籍！wepoker辅助器怎么弄（AApoker透视）原来是真的有辅助工具（哔哩哔哩）wepok...

透视教材!哈糖大菠萝有挂吗(透... 透视教材!哈糖大菠萝有挂吗(透视)newpoker怎么安装脚本(辅助)真是真的是有教程(哔哩哔哩)1...

透视经验!pokemmo免费脚... 透视经验!pokemmo免费脚本(透视)xpoker辅助(辅助)真是是有神器(哔哩哔哩)1、这是跨平...

透视秘籍!红龙poker辅助(... 透视秘籍!红龙poker辅助(透视)wepoker透视有吗(辅助)竟然是有工具(哔哩哔哩)1、wep...

透视总结！wejoker辅助器... 透视总结！wejoker辅助器怎么卖（HHpoker买挂）都是真的有辅助教程（哔哩哔哩）1.wejo...

透视总结!智星德州插件最新版本... 透视总结!智星德州插件最新版本更新内容详解(透视)约局吧透视挂下载(辅助)果然一直都是有插件(哔哩哔...

透视步骤!pokerrrr2辅... 透视步骤!pokerrrr2辅助(透视)德州辅助工具到底怎么样(辅助)真是有软件(哔哩哔哩)1、完成...

透视模板！wepoker黑侠辅... 透视模板！wepoker黑侠辅助器（HHpoker插件）原来是有辅助插件（哔哩哔哩）1、操作简单，无...