如何修改Excel VBA宏仅对高亮选中区域按C、D列升序排序

你原有的宏硬编码了固定排序范围，只需要把固定范围替换成对当前选中区域的动态读取即可，修改后逻辑如下：

• 自动读取当前鼠标选中的高亮单元格区域作为唯一排序范围，不会操作选区外的内容
• 自动提取选区的起止行号，匹配对应C列、D列的同范围单元格作为排序键，严格遵循先按C列升序、再按D列升序的规则
• 增加简单的范围校验，如果你选中的区域超出A:Y列范围会弹出提示，避免误排序
• 保留原宏里指定工作表、排序方式、排序后光标定位的原有逻辑

修改后的完整可直接使用的代码：

Sub HSSortByVendor()
'
' HSSortByVendor Macro
' Sort by column C & D
'
    Dim targetWs As Worksheet
    Dim selectedRng As Range
    Dim areaStartRow As Long, areaEndRow As Long

    ' 绑定操作的目标工作表
    Set targetWs = ActiveWorkbook.Worksheets("Hourly")
    ' 获取当前用户选中的高亮区域
    Set selectedRng = Selection

    ' 校验选中区域是否在A:Y列范围内
    If selectedRng.Column < 1 Or (selectedRng.Column + selectedRng.Columns.Count - 1) > 25 Then
        MsgBox "请选中A:Y列范围内需要排序的单元格区域后重试", vbExclamation
        Exit Sub
    End If

    ' 计算选中区域的起止行号
    areaStartRow = selectedRng.Row
    areaEndRow = areaStartRow + selectedRng.Rows.Count - 1

    ' 清空旧的排序规则
    targetWs.Sort.SortFields.Clear
    ' 动态绑定C列对应选区范围作为第一排序键
    targetWs.Sort.SortFields.Add2 Key:=targetWs.Range("C" & areaStartRow & ":C" & areaEndRow), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ' 动态绑定D列对应选区范围作为第二排序键
    targetWs.Sort.SortFields.Add2 Key:=targetWs.Range("D" & areaStartRow & ":D" & areaEndRow), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ' 执行排序
    With targetWs.Sort
        .SetRange selectedRng
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    ' 排序完成后定位到指定单元格
    targetWs.Range("H4:M4").Select
End Sub

使用方式：

• 打开对应工作簿后，先手动选中你需要排序的A:Y列范围内的连续区域，比如需要排序A34:Y50就直接鼠标拖选这个范围，需要排序A22:Y45就选对应范围
• 执行宏即可，宏只会对你选中的区域做排序，不会改动其他单元格内容

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