VBA定义Table范围时不包含表格最后一行的问题如何解决？

你遇到的表格最后一行截断问题，是原代码存在多个逻辑和语法疏漏导致的，对应修改点如下：

• 行号计算逻辑错误：你用WorksheetFunction.CountA返回的是范围内非空单元格的数量，而非最后一行的行号。如果B列从B2开始的范围内存在空单元格，这个计数会远小于实际最后一行的行号，直接导致取范围时少取行。
• End(xlDown)方法不稳定：如果B列中间存在空值，End(xlDown)会直接停在第一个空值的上一行，无法定位到真实的最后一行数据。
• 变量声明不规范：Dim count_row, count_col As Integer 这种写法只有count_col是Integer类型，count_row默认是Variant类型，且Integer最大值仅为32767，当表格行数超过32767时会出现类型溢出错误。
• 单元格引用未绑定工作表：Cells(2,2)没有指定所属工作表，当活动工作表不是目标表时，会出现范围引用错位。

修复后的完整代码如下：

Dim count_row As Long, count_col As Long
Dim Actions As Range
Dim target_sheet As Worksheet

' 绑定目标工作表，避免活动表切换导致的引用错误
Set target_sheet = Sheets("Name of the sheet")

With target_sheet
    ' 从B列最后一行往上找真实的有数据的最后一行，避免中间空值截断
    count_row = .Cells(.Rows.Count, "B").End(xlUp).Row
    ' 从第2行最后一列往左找真实的有数据的最后一列
    count_col = .Cells(2, .Columns.Count).End(xlToLeft).Column
    
    ' 绑定范围的所有单元格都归属目标工作表
    Set Actions = .Range(.Cells(2, 2), .Cells(count_row, count_col))
End With

补充说明：

• 如果第2行是表头，你需要跳过表头只取数据行，将起始行.Cells(2, 2)修改为.Cells(3, 2)即可。
• 行号、列号变量统一使用Long类型，适配Excel最大行号限制，完全避免溢出问题。

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