基于优先级分配并更新等候列表排队编号的实现方案咨询

一、公式实现方案 #

假设数据结构为：A列=人员姓名，B列=优先级（1/2/3），C列=排队位置。直接用IFS结合COUNTIF即可实现自动计算，无需手动调整：

核心公式 #

=IFS(
    B2=1, COUNTIF($B$2:B2, 1),
    B2=2, COUNTIF($B:$B, 1) + COUNTIF($B$2:B2, 2),
    B2=3, COUNTIF($B:$B, 1) + COUNTIF($B:$B, 2) + COUNTIF($B$2:B2, 3)
)

逻辑说明 #

• 优先级1的行：统计当前行及以上的优先级1记录数，得到同优先级内的排队序号
• 优先级2的行：先统计全表优先级1的总数量，再加上当前行及以上的优先级2记录数
• 优先级3的行：统计全表优先级1+2的总数量，再加上当前行及以上的优先级3记录数
• 新增或修改优先级时，公式会自动更新所有行的排队位置，无需手动刷新

二、VBA实现方案 #

如果需要更灵活的控制（比如结合现有VBA功能），可以用事件触发的宏自动更新排队位置，以下提供两种思路：

思路1：保留原行顺序，仅更新排队位置 #

适合不想改变人员列表显示顺序的场景，代码会遍历每行计算对应位置：

Sub UpdateQueuePositions()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim priorityCount(3) As Integer
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 预统计各优先级总数量
    priorityCount(1) = Application.WorksheetFunction.CountIf(ws.Range("B:B"), 1)
    priorityCount(2) = Application.WorksheetFunction.CountIf(ws.Range("B:B"), 2)
    priorityCount(3) = Application.WorksheetFunction.CountIf(ws.Range("B:B"), 3)
    
    ' 逐行计算排队位置
    For i = 2 To lastRow
        Select Case ws.Cells(i, "B").Value
            Case 1
                ws.Cells(i, "C").Value = Application.WorksheetFunction.CountIf(ws.Range("B2:B" & i), 1)
            Case 2
                ws.Cells(i, "C").Value = priorityCount(1) + Application.WorksheetFunction.CountIf(ws.Range("B2:B" & i), 2)
            Case 3
                ws.Cells(i, "C").Value = priorityCount(1) + priorityCount(2) + Application.WorksheetFunction.CountIf(ws.Range("B2:B" & i), 3)
        End Select
    Next i
End Sub

' 绑定工作表变更事件，修改优先级/新增人员时自动触发
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A:B")) Is Nothing Then
        Application.EnableEvents = False
        UpdateQueuePositions
        Application.EnableEvents = True
    End If
End Sub

思路2：按优先级排序后分配连续编号 #

允许调整人员行顺序，让高优先级人员排在前面，再直接分配连续序号：

Sub SortAndAssignQueue()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 按优先级升序、添加顺序（行号）升序排序
    ws.Range("A1:C" & lastRow).Sort _
        Key1:=ws.Range("B1"), Order1:=xlAscending, _
        Key2:=ws.Range("A1"), Order2:=xlAscending, _
        Header:=xlYes
    
    ' 分配连续排队编号
    ws.Range("C2:C" & lastRow).Formula = "=ROW()-1"
    ws.Range("C2:C" & lastRow).Value = ws.Range("C2:C" & lastRow).Value ' 转成静态值
End Sub

使用说明 #

• 将代码粘贴到对应工作表的模块中（右键工作表标签→查看代码）
• 思路1的事件宏会自动触发，思路2可绑定到按钮或手动执行

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