VBA宏开发：循环中排除指定工作表批量调整列宽

原代码问题分析 #

1. 条件判断逻辑错误：原代码中If ws.Name <> "Column Index" And "Column List" And "Template"的写法不合法，多条件排除需要分别对每个工作表名称做不等于判断。
2. 计算范围未排除非标准表：内层循环遍历所有工作表时，没有排除三个非标准表，导致计算出的最大列宽会包含非标准表的列宽值，不符合需求。
3. 列宽设置条件错误：第二个内层循环用w.Columns(c).ColumnWidth = 0作为设置列宽的触发条件，这完全偏离需求，应该直接对标准表设置列宽。
4. 循环冗余低效：外层遍历所有工作表的同时，内层重复遍历多次，造成不必要的计算浪费。

修正后的VBA代码 #

Sub ChangeChosenColumnSizesToMatchLargest()
    Dim ws As Worksheet
    Dim excludeSheets As Variant
    Dim maxWidths(7 To 10) As Double '存储G-J列的最大宽度
    Dim c As Integer
    Dim isExcluded As Boolean
    
    '定义需要排除的工作表名称
    excludeSheets = Array("Column Index", "Column List", "Template")
    
    '第一步：计算标准表中G-J列的最大列宽
    For Each ws In ActiveWorkbook.Worksheets
        isExcluded = False
        '判断当前工作表是否在排除列表中
        For Each sheetName In excludeSheets
            If ws.Name = sheetName Then
                isExcluded = True
                Exit For
            End If
        Next sheetName
        
        If Not isExcluded Then
            For c = 7 To 10
                '更新当前列的最大宽度
                If ws.Columns(c).ColumnWidth > maxWidths(c) Then
                    maxWidths(c) = ws.Columns(c).ColumnWidth
                End If
            Next c
        End If
    Next ws
    
    '第二步：将标准表的G-J列设置为对应最大宽度
    For Each ws In ActiveWorkbook.Worksheets
        isExcluded = False
        For Each sheetName In excludeSheets
            If ws.Name = sheetName Then
                isExcluded = True
                Exit For
            End If
        Next sheetName
        
        If Not isExcluded Then
            For c = 7 To 10
                ws.Columns(c).ColumnWidth = maxWidths(c)
            Next c
        End If
    Next ws
End Sub

代码说明 #

• 排除列表定义：用数组excludeSheets存储非标准表名称，后续如果需要调整排除列表，直接修改数组内容即可，维护更方便。
• 最大列宽计算：先遍历所有工作表，跳过非标准表，逐个记录G-J列的最大宽度值。
• 列宽批量设置：再次遍历所有工作表，跳过非标准表，将G-J列的宽度统一设置为之前计算好的最大宽度。
• 逻辑清晰高效：分两步执行，避免重复计算，同时确保只针对标准表进行操作，完全符合需求。

内容的提问来源于stack exchange，提问作者Tomás Agustín Quinteros Amat