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.新海贝之城脚本选牌创建新账号...

4分钟指引！杭麻圈辅助工具（外... 4分钟指引！杭麻圈辅助工具（外挂）其实是真的有辅助方法（哔哩哔哩）1、全新机制【杭麻圈辅助工具ai辅...

第5分钟演示！浙江茶园辅助（外... 第5分钟演示！浙江茶园辅助（外挂）都是是真的有辅助app（哔哩哔哩）1、游戏颠覆性的策略玩法，独创攻...

三分钟举措！上饶中至能操控吗（... 三分钟举措！上饶中至能操控吗（外挂）好像一直都是有辅助软件（哔哩哔哩）1、让任何用户在无需上饶中至能...

两分钟法子！新天道能不能开挂（... 两分钟法子！新天道能不能开挂（外挂）总是是有辅助教程（哔哩哔哩）1、让任何用户在无需新天道能不能开挂...

三分钟要领！玖玖互娱辅助工具（... 三分钟要领！玖玖互娱辅助工具（外挂）真是存在有辅助脚本（哔哩哔哩）三分钟要领！玖玖互娱辅助工具（外挂...

8分钟手段！wepoker私人... 8分钟手段！wepoker私人局辅助器（外挂）确实有辅助技巧（哔哩哔哩）运wepoker私人局辅助器...

2分钟步骤！科乐游戏辅助脚本视... 2分钟步骤！科乐游戏辅助脚本视频（外挂）原来是真的有辅助插件（哔哩哔哩）1、任何科乐游戏辅助脚本视频...