VBA代码无法正确获取表格列数，需基于表格首行修正

你可以通过Find方法定位表格标题行（即包含“User- User Full Name”的行），再用该行号去计算表格的最后一列。修改后的代码如下，同时去掉了不必要的Select操作（避免激活工作表带来的潜在问题）：

Sub Range_Variable_Example()
    Dim ws As Worksheet
    Dim headerCell As Range
    Dim headerRow As Long
    Dim LR As Long
    Dim LC As Long
    Dim Rng As Range
    
    ' 指定目标工作表，避免使用Select
    Set ws = ThisWorkbook.Worksheets("Home")
    
    ' 定位表格标题单元格
    Set headerCell = ws.Cells.Find(What:="User- User Full Name", LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 检查是否找到标题，防止代码报错
    If Not headerCell Is Nothing Then
        headerRow = headerCell.Row
        
        ' 获取表格最后一行（以标题所在列的最后一行为准）
        LR = ws.Cells(ws.Rows.Count, headerCell.Column).End(xlUp).Row
        ' 获取标题行的最后一列
        LC = ws.Cells(headerRow, ws.Columns.Count).End(xlToLeft).Column
        
        ' 定义完整的表格范围
        Set Rng = ws.Cells(headerRow, headerCell.Column).Resize(LR - headerRow + 1, LC - headerCell.Column + 1)
        
        ' 若需要选中范围，再执行此行（建议尽量避免使用Select）
        Rng.Select
    Else
        MsgBox "未找到表格标题：User- User Full Name"
    End If
End Sub

关键修改说明： #

• 用Find精准定位标题单元格，自动获取它的行号headerRow，无需手动硬编码行号
• 最后一行的计算改用标题所在列，避免原代码中A列无数据导致的行号判断错误
• 定义表格范围时从标题单元格开始，确保选中的是完整的表格区域
• 增加了标题未找到的判断逻辑，避免代码运行报错

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