Excel VBA需求：实现两列循环并排序的宏

以下是可直接使用的列表排序VBA宏代码，你可以根据自身需求调整参数：

Sub SortList()
    ' 指定目标工作表，替换为你的工作表名称
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 自动识别数据区域（表头在第1行，数据从第2行开始）
    Dim dataArea As Range
    Set dataArea = targetSheet.Range("A1").CurrentRegion
    
    ' 执行排序操作
    With targetSheet.Sort
        .SortFields.Clear
        ' 按第2列（B列）升序排序，可修改Columns后的数字切换排序列
        .SortFields.Add Key:=dataArea.Columns(2), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
        .SetRange dataArea
        .Header = xlYes ' 列表无表头则改为xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    MsgBox "排序完成", vbInformation
End Sub

自定义调整说明 #

• 切换工作表：修改ThisWorkbook.Worksheets("Sheet1")中的工作表名称
• 更改排序列：把dataArea.Columns(2)的数字改为目标列的序号（如1对应A列，3对应C列）
• 切换排序方向：将Order:=xlAscending改为Order:=xlDescending实现降序
• 无表头处理：将.Header = xlYes替换为.Header = xlNo

操作步骤 #

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 右键点击左侧工作簿名称 → 插入 → 模块
3. 将代码粘贴到模块窗口中
4. 返回Excel，按Alt + F8选择SortList宏执行

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