编辑自动排序列：家务工作表VBA宏功能优化需求

问题根源 #

原宏每次运行都会覆盖所有C列的排序值，导致手动调整的排序位置被重置。需要修改宏逻辑，保留手动编辑的C列数据，同时对新录入行按规则自动分配排序位置。

修改后的VBA代码 #

Sub OrderWithManualEdit()
    Dim lastRow As Long
    Dim i As Long, sortNum As Long
    Application.ScreenUpdating = False
    
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    ' 首次排序：优先遵循手动C列值，空值行按等级降序+录入先后排序
    Range("A2:U" & lastRow).Sort _
        Key1:=Range("C2"), Order1:=xlAscending, _
        Key2:=Range("B2"), Order2:=xlDescending, _
        Key3:=Range("A2"), Order3:=xlAscending, _
        Header:=xlYes, _
        Orientation:=xlTopToBottom
    
    ' 为C列空值行分配连续序号，保留手动设置的数值
    sortNum = 1
    For i = 2 To lastRow
        If Cells(i, "C").Value = "" Then
            Cells(i, "C").Value = sortNum
        Else
            ' 若手动序号大于当前计数，更新计数避免重复
            If Cells(i, "C").Value > sortNum Then
                sortNum = Cells(i, "C").Value
            End If
        End If
        sortNum = sortNum + 1
    Next i
    
    ' 最终按C列升序排序，确保顺序与排序值完全匹配
    Range("A2:U" & lastRow).Sort _
        Key1:=Range("C2"), Order1:=xlAscending, _
        Header:=xlYes, _
        Orientation:=xlTopToBottom
    
    Application.ScreenUpdating = True
End Sub

核心逻辑说明 #

• 保留手动编辑：仅对C列为空的行自动赋值，已手动设置的C列数值完全保留；
• 新行排序规则：空值行先按B列等级降序排列，同等级下按行号升序（最新录入的行排后）；
• 连续序号保证：遍历行时自动调整计数，确保手动设置的序号和自动分配的序号连续不重复；
• 最终对齐：再次按C列升序排序，让所有行的显示顺序与C列排序值完全一致。

使用方式 #

1. 手动修改任意行的C列数值（比如将等级3的家务C列设为1）；
2. 运行OrderWithManualEdit宏，手动设置的排序位置会被保留，新录入的行自动按规则分配排序值并归位。

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