基于列H最大值隐藏列组：求脚本或无脚本实现方案

嘿，我来帮你搞定这个需求！先聊聊有没有不用脚本的办法，要是满足不了，再给你上靠谱的VBA脚本方案：

一、无脚本尝试：用Power Query实现自动列筛选 #

要是你不想碰VBA，Power Query是个不错的无脚本选项，步骤大概是这样：

• 1. 选中你的数据区域，点击「数据」选项卡→「自表格/区域」，把数据导入Power Query编辑器
• 2. 先算出H列（包装尺寸数量）的最大值：添加一个自定义列，输入公式List.Max(Table.Column(源, "包装尺寸数量"))就能拿到最大值n
• 3. 根据n值保留对应数量的尺寸列组：比如你每个尺寸组占3列、从I列开始，就可以计算需要保留的列数，删掉多余的列
• 4. 关闭并上载数据回Excel，之后每次数据更新，刷新一下Power Query连接就能自动调整显示的列

不过这个方案有个小局限：你的列组得是固定结构（比如每组列数一样），而且数据会变成Power Query的表格格式，可能和你原来的排版有点差异。

二、VBA脚本方案（更灵活适配你的深色边框列组） #

要是无脚本方案搞不定，那VBA绝对是更合适的选择。你可以把之前失败的脚本删掉，用下面的代码：

第一步：先理清楚你的列组范围 #

首先得把每个带深色边框的尺寸组对应的列范围列出来，比如：

• 第1组：I-K列
• 第2组：L-N列
• 第3组：O-Q列
  ...
  后面代码里要用到这个，得和你实际表格对应上哈。

第二步：完整的VBA代码 #

按Alt+F11打开VBA编辑器，插入一个新模块，把下面的代码粘贴进去：

Sub AdjustSizeColumns()
    Dim ws As Worksheet
    Dim maxQty As Integer
    Dim colGroups As Variant
    Dim i As Integer
    
    ' 替换成你的工作表名称
    Set ws = ThisWorkbook.Worksheets("你的表名")
    
    ' 获取H列的最大值（假设H列第1行是表头，数据从第2行开始）
    maxQty = Application.WorksheetFunction.Max(ws.Range("H2:H" & ws.Cells(ws.Rows.Count, "H").End(xlUp).Row))
    
    ' 这里填你实际的列组范围，按需添加或修改
    colGroups = Array("I:K", "L:N", "O:Q", "R:T") ' 示例是4个列组
    
    ' 先把所有尺寸组列隐藏
    For i = LBound(colGroups) To UBound(colGroups)
        ws.Range(colGroups(i)).EntireColumn.Hidden = True
    Next i
    
    ' 根据最大值显示对应数量的列组
    If maxQty > 1 Then
        For i = 0 To maxQty - 1
            ' 防止超出定义的列组数量
            If i <= UBound(colGroups) Then
                ws.Range(colGroups(i)).EntireColumn.Hidden = False
            End If
        Next i
    Else
        ' 最大值为1时，只显示第一个列组
        ws.Range(colGroups(0)).EntireColumn.Hidden = False
    End If
End Sub

第三步：让脚本更易用 #

你可以把这个脚本绑定到按钮，或者设置成自动触发：

• 手动触发：点击「开发工具」选项卡→插入按钮，把这个宏关联上去，点按钮就执行
• 自动触发：在VBA编辑器里双击你的目标工作表，粘贴下面的代码，这样H列数据一变化，脚本就自动跑：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只有H列数据变化时才执行
    If Not Intersect(Target, Me.Range("H:H")) Is Nothing Then
        AdjustSizeColumns
    End If
End Sub

小提醒 #

• 记得把代码里的"你的表名"改成你实际的工作表名称
• 列组范围一定要和你表格里的深色边框组完全对应，不然会出错
• 要是列组数量更多，直接在colGroups数组里加对应的列范围就行

内容的提问来源于stack exchange，提问作者David