VBA中动态存储单元格引用为变量以删除表格多余行

方案1：动态创建表格（从源头避免多余行） #

直接根据实际有效数据范围创建表格，无需事后删除空行，效率更高。核心是先定位有效数据的最后一行，再以此定义表格范围：

Dim ws As Worksheet
Dim lastRow As Long
Dim tableRange As Range

Set ws = ActiveSheet ' 可替换为具体工作表，如ThisWorkbook.Worksheets("数据提取")

' 找到A列最后一行有数据的行号（假设A列是数据起始列，无空行）
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 定义从A1到AG列最后一行的范围
Set tableRange = ws.Range("A1:AG" & lastRow)

' 创建表格
ws.ListObjects.Add(xlSrcRange, tableRange, , xlYes).Name = "Table1"

如果数据区域可能存在中间空行，可改用CurrentRegion自动识别连续数据块：

Set tableRange = ws.Range("A1").CurrentRegion
ws.ListObjects.Add(xlSrcRange, tableRange, , xlYes).Name = "Table1"

方案2：删除现有表格的多余行 #

如果必须保留原固定范围创建表格的逻辑，可通过动态定位有效数据的最后一行，批量删除后续空行：

Dim ws As Worksheet
Dim tbl As ListObject
Dim lastDataRow As Long
Dim startDeleteIndex As Long

Set ws = ActiveSheet
Set tbl = ws.ListObjects("Table1")

' 找到"Client Id"列最后一行有数据的行号（含表头）
lastDataRow = tbl.ListColumns("Client Id").Range.End(xlDown).Row
startDeleteIndex = lastDataRow - tbl.HeaderRowRange.Row + 1

' 检查是否存在多余行，避免无空行时报错
If startDeleteIndex <= tbl.ListRows.Count Then
    ' 批量删除从指定索引到表格末尾的行
    tbl.ListRows(startDeleteIndex).Delete xlUp
End If

关键优化点 #

• 全程避免使用Select/Selection，VBA中直接操作对象（Range、ListObject）更稳定高效；
• 增加错误判断（如方案2中的空行检查），防止因数据无多余行导致运行错误；
• 方案1从根源解决问题，优先推荐使用。

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