如何为VBA中通过LastRow与LastColumn生成的动态区域命名？

你的原始代码存在几处可直接调整的问题：

• 语法错误：LastRow 和 LastColumn 的定位逻辑属性位置写反，运行会直接报错
• 父对象缺失：Set StartCell = Range("A1") 没有绑定指定工作表，当活动表不是Sheet1时会取错起始单元格
• 冗余操作：末尾的Select完全不需要，VBA操作单元格/区域尽量避免使用选择，直接操作对象即可
• 不符合需求：你明确说明列数固定，不需要每次计算LastColumn，可直接删掉相关逻辑减少冗余

以下代码预留了自定义参数位置，你可以根据实际情况修改，同时内置了区域命名逻辑，命名后的区域可直接用于高级筛选：

' 建议所有模块顶部都加这行，强制变量声明，避免拼写变量的低级错误
Option Explicit

Sub 定义自适应数据区域()
    Dim sht As Worksheet
    Dim LastRow As Long
    Dim 固定总列数 As Long
    Dim 条件区域所用列号 As Long
    Dim StartCell As Range
    Dim 筛选列表区域 As Range
    Dim 单列条件区域 As Range
    
    ' ========== 以下参数可根据你的实际情况修改 ==========
    Set sht = Worksheets("Sheet1")
    Set StartCell = sht.Range("A1") ' 数据区域的起始单元格
    固定总列数 = 5 ' 你的列数固定，这里改成实际总列数，比如3就是A到C列
    条件区域所用列号 = 2 ' 要作为条件区域的列序号，比如2就是B列
    ' ==================================================
    
    ' 计算最后一行有数据的行号（从起始列最底部往上找最后一个非空行）
    LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row
    
    ' 定义完整的筛选列表区域并命名（工作簿级别，整个文件都可调用）
    Set 筛选列表区域 = sht.Range(StartCell, sht.Cells(LastRow, 固定总列数))
    ThisWorkbook.Names.Add Name:="高级筛选_列表区域", RefersTo:=筛选列表区域
    
    ' 定义单列条件区域并命名
    Set 单列条件区域 = sht.Range(StartCell.Offset(0, 条件区域所用列号 - 1), sht.Cells(LastRow, 条件区域所用列号))
    ThisWorkbook.Names.Add Name:="高级筛选_条件区域", RefersTo:=单列条件区域
End Sub

• 如果命名的区域只需要在当前工作表使用，可以把ThisWorkbook.Names.Add替换为sht.Names.Add，生成工作表级别的名称，不会和其他工作表的同名名称冲突
• 后续调用高级筛选时可以直接使用定义好的名称，示例写法：sht.Range("高级筛选_列表区域").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=sht.Range("高级筛选_条件区域")
• 如果数据中间存在空行，可改用UsedRange定位最后一行，连续无空行的数据用当前的End(xlUp)方法精度最高

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