如何在VBA中使用数组实现动态单元格区域的排序功能

以下代码将原实现中硬编码的固定单元格范围替换为自动探测的动态范围，可随实际数据的行列规模自动调整，无需每次手动修改代码内的范围参数。

修改后完整代码 #

Sub 动态数据排序()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim sortRng As Range, keyRng As Range
    
    ' 配置要操作的工作表，此处1代表工作簿内第一个工作表，可改为工作表名，如Worksheets("数据 sheet")
    Set ws = ThisWorkbook.Worksheets(1)
    
    ' 自动探测数据范围：以B4为起点
    ' 1. 找到B列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' 2. 找到第4行（数据起始行）最后一列有数据的列号
    lastCol = ws.Cells(4, ws.Columns.Count).End(xlToLeft).Column
    ' 3. 拼接动态排序范围、排序键范围
    Set sortRng = ws.Range("B4", ws.Cells(lastRow, lastCol))
    Set keyRng = ws.Range("B4", ws.Cells(lastRow, "B"))
    
    ' 高亮选中排序区域
    sortRng.Select
    
    ' 执行排序
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=keyRng, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange sortRng
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

代码使用说明 #

• 数据的行、列规模发生变化时，代码会自动适配最新的数据范围，不需要手动修改范围参数
• 如果你的数据起始位置不是B4，只需修改代码中所有B4的参数为对应的起始单元格即可
• 可根据需求调整工作表索引/名称、排序顺序、排序方法等参数

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