ListObject表格调整大小功能失效，求助条件式调整表格范围的VBA代码问题

嗨，Lisa，我看了你的代码和需求描述，明白你想实现的是找到第4行中值为1的列，然后把指定的ListObject表格调整到该列，行范围固定在19到48行。代码没报错但完全没效果，核心是几个逻辑和写法上的小问题，我帮你梳理下：

你的代码里的核心问题 #

• 逻辑判断完全错误：你写的If ShMonth.Cells(4, colnum).Value = colindex Then，这里colindex是通过Match得到的「列号」（比如第10列就是10），而Cells(4,colnum).Value是单元格里的「值」（比如1），这两个东西根本没法相等，所以条件永远不成立，Resize自然不会执行。
• 多余的循环嵌套：外层的For colnum =7 To 37完全没必要，因为你已经用Match找到了值为1的列的位置，循环列号反而会重复执行无效操作；内层的For qnum=1 To 1更是多余，直接引用ListObjects(1)就行。
• Range引用未指定工作表：table.Range(Cells(19,6), Cells(48,colindex))里的Cells没有绑定ShMonth，如果当前激活的不是这个工作表，会导致引用错误，虽然没报错但Resize不会生效。
• 未处理Match找不到值的情况：如果第4行里没有1，Match会直接报错，需要加错误捕获。

修正后的代码 #

Sub tablesize()
    Dim ShMonth As Worksheet
    Set ShMonth = ThisWorkbook.Worksheets("Month") '指定工作表
    
    Dim colindex As Variant '用Variant接收，避免找不到时报错
    '查找第4行中第一个值为1的列号
    colindex = Application.Match(1, ShMonth.Rows(4), 0)
    
    '先判断是否找到目标列
    If Not IsError(colindex) Then
        Dim table As ListObject
        Set table = ShMonth.ListObjects(1) '直接获取第一个ListObject
        
        '调整表格范围：行19到48，列6到找到的colindex
        '注意所有Cells都绑定ShMonth，避免引用错误
        table.Resize ShMonth.Range(ShMonth.Cells(19, 6), ShMonth.Cells(48, colindex))
        
        MsgBox "表格已成功调整到第" & colindex & "列！" '可选提示，验证执行结果
    Else
        MsgBox "第4行中未找到值为1的单元格！"
    End If
End Sub

关键改动说明 #

1. 移除多余循环：直接用Match定位目标列，避免无效循环。
2. 修正条件判断逻辑：先判断是否找到目标列，再执行Resize，不再做无意义的数值比较。
3. 绑定工作表到所有Range/Cells：确保所有单元格引用都指向ShMonth，避免跨工作表引用错误。
4. 添加错误处理：用IsError判断Match是否找到结果，避免运行时错误。
5. 简化代码结构：去掉不必要的变量，让逻辑更清晰。

备注：内容来源于stack exchange，提问作者Lisa