Excel VBA自动更新宏需求：Win/Loss行自动移至底部并排序

需求说明 #

• 当K列（表头位于第7行，数据从第8行开始）输入Win或Loss时，该行自动移至表格底部
• 所有标记为Win的行需位于Loss行上方，空白行保持原位
• 输入数据时实时触发更新

修改后的有效VBA宏代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetRow As Long
    Dim lastRow As Long
    Dim winLastRow As Long
    Dim lossLastRow As Long
    
    ' 处理多单元格修改的情况，直接退出
    If Target.CountLarge > 1 Then Exit Sub
    
    ' 仅处理K列（第11列）且行号≥8的单元格
    If Target.Column <> 11 Or Target.Row < 8 Then Exit Sub
    
    ' 仅处理值为Win或Loss的情况
    Select Case UCase(Target.Value)
        Case "WIN", "LOSS"
            Application.EnableEvents = False ' 关闭事件防止循环触发
            targetRow = Target.Row
            
            ' 获取表格最后一行（A列非空行的下一行）
            lastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
            
            ' 区分Win和Loss，找到对应的插入位置
            If UCase(Target.Value) = "WIN" Then
                ' 找到最后一个Win行的下一行，没有则用Loss区域的起始行
                winLastRow = Columns("K").Find("Win", LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlPrevious).Row
                ' 如果没有Win行，找最后一个Loss行的下一行，都没有就用lastRow
                If winLastRow < 8 Then
                    lossLastRow = Columns("K").Find("Loss", LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlPrevious).Row
                    winLastRow = IIf(lossLastRow >= 8, lossLastRow + 1, lastRow)
                Else
                    winLastRow = winLastRow + 1
                End If
                ' 移动Win行到对应位置
                Rows(targetRow).Cut
                Rows(winLastRow).Insert Shift:=xlDown
            Else
                ' Loss行直接移到表格最底部
                Rows(targetRow).Cut
                Rows(lastRow).Insert Shift:=xlDown
            End If
            
            ' 删除原行（剪切后留下的空行）
            Rows(targetRow).Delete
            Application.EnableEvents = True ' 恢复事件触发
    End Select
End Sub

关键改动说明 #

• 目标列修正：将原代码中判断的D列（第4列）改为K列（第11列），同时限制行号≥8，避免表头被误操作
• 触发条件扩展：新增对Loss的判断，同时用UCase统一大小写，避免大小写输入差异导致失效
• 排序逻辑优化：
  • Win行插入到现有所有Win行的下方、Loss行的上方
  • Loss行直接移至整个表格的最底部
• 稳定性提升：完善了无Win/Loss行时的边界处理，防止报错；全程关闭事件触发避免循环执行

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