如何编写可动态调整表格大小的Do Until循环？解决VBA宏冻结问题

问题根源 #

之前的Do Until循环导致程序冻结，本质是没有设置可靠的终止边界，或者循环逻辑在处理"-"值时陷入死循环。改用Excel对象模型的Find方法可以高效定位有效数据行，避免循环卡死。

实现思路 #

1. 定位目标表格Table12及Login列，避免硬编码列号适配列调整。
2. 从Login列底部向上查找第一个非"-"的单元格，确定最后有效数据行。
3. 根据有效行位置计算表格目标范围，用Resize调整表格大小。
4. 处理边界场景：当所有数据行都是"-"时，保留表头+1行空数据行（可按需调整）。

完整VBA代码 #

Sub AutoResizeTable12()
    Dim mnTbl As ListObject
    Dim loginCol As ListColumn
    Dim lastValidRow As Range
    Dim targetRange As Range
    Dim lastColLetter As String
    Dim ws As Worksheet
    
    ' 指定表格所在工作表（替换为实际工作表名称）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 定位目标表格
    Set mnTbl = ws.ListObjects("Table12")
    ' 定位Login列（确保列名与表格中完全一致）
    Set loginCol = mnTbl.ListColumns("Login")
    
    ' 从Login列数据区域底部向上查找第一个非"-"的单元格
    Set lastValidRow = loginCol.DataBodyRange.Find(What:="<>-", _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious)
    
    ' 获取表格最后一列的列标
    lastColLetter = Split(mnTbl.Range.Cells(1, mnTbl.ListColumns.Count).Address, "$")(1)
    
    ' 处理边界情况：无有效数据行（所有都是"-"）
    If lastValidRow Is Nothing Then
        ' 保留表头+1行空数据行（可修改为2以外的数值调整行数）
        Set targetRange = ws.Range(mnTbl.Range.Cells(1, 1).Address & ":" & lastColLetter & mnTbl.HeaderRowRange.Row + 1)
    Else
        ' 目标范围：从表格左上角到最后有效数据行的最后一列
        Set targetRange = ws.Range(mnTbl.Range.Cells(1, 1).Address & ":" & lastColLetter & lastValidRow.Row)
    End If
    
    ' 调整表格大小
    mnTbl.Resize targetRange
    
    ' 可取消注释调用已有宏
    ' Call YourRefreshMacroName ' 刷新数据宏
    ' Call YourSortMacroName ' 排序数据宏
End Sub

关键细节说明 #

• 替代循环的核心：Find方法：相比Do Until循环，Find是Excel原生高效查找方法，直接定位目标单元格，彻底避免死循环风险。
• 动态适配列变化：自动获取表格最后一列的列标，无需手动修改代码适配列的增减。
• 灵活边界处理：当所有数据行都是"-"时，默认保留表头+1行空行，可根据需求修改mnTbl.HeaderRowRange.Row + 1中的数值调整保留行数，甚至设置为只留表头（mnTbl.HeaderRowRange.Row）。
• 表格起始位置适配：代码中用mnTbl.Range.Cells(1,1).Address自动获取表格左上角单元格，无需硬编码$A$3，适配表格位置调整。

使用注意事项 #

1. 替换代码中的"Sheet1"为Table12所在的实际工作表名称。
2. 确保Login列的名称与代码中mnTbl.ListColumns("Login")的引号内名称完全一致（区分大小写）。
3. 如果需要在调整行后自动执行刷新或排序，取消对应宏调用的注释，替换为实际宏名称。

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