如何命名使用 lastrow 和 lastcolumn VBA 生成的动态范围？

Question

我有一个问题，我正在寻找的是制作一个自适应的代码（唯一修改的是行数，而不是列数），我需要给它一个名字，因为我将使用list 作为高级过滤器选项中的列表范围，列整数作为标准范围，这是我的代码，如果您提出其他建议，我接受建议。

Dim sht As Worksheet

Dim LastRow As Long

Dim LastColumn As Long

Dim StartCell As Range



Set sht = Worksheets("Sheet1")

Set StartCell = Range("A1")

LastRow = sht.Cells(sht.Rows.Count, StartCell.Column.End(xlUp).Row)

LastColumn = sht.Cells(StartCell.Row, sht.Columns.Count.End(xlToLeft).Column)

sht.Range(StartCell, sht.Cells(LastRow, LastColumn).Select)

P.s：我是 VBA 的新手

Answer 1

除非你打算改变它，否则不需要StartCell，否则你只是使用sht.Cells(1,1)。此外，您最后选择了一个范围。最好避免Activate 和Select。如果你定义了范围，你可以复制、搜索等。

Dim sht As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim StartCell As Range

Set sht = Worksheets("Sheet1")

LastRow = sht.Cells(sht.Rows.Count, 1).End(xlUp).Row
LastColumn = sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column

Dim Rng As Range
Set Rng = sht.Range(1, sht.Cells(LastRow, LastColumn))

Rng.AutoFilter, Field:=1, Criteria1:="New"