Excel VBA实现列头点击排序后恢复原始状态的技术问询

要实现双击列头先按该列降序排序，再次点击恢复原始排列，核心是记录数据的原始行号，以此作为恢复排序的依据。以下是修改后的完整方案：

步骤说明 #

• 自动添加隐藏的辅助列，用于存储每行的原始行号（仅首次运行时创建）
• 双击列头时，切换两种状态：按目标列降序 / 按原始行号恢复初始顺序

修改后的VBA代码 #

' 模块级变量，记录当前列的排序状态（False=未排序/原始状态，True=已降序）
Private blnSorted As Boolean
Private originalCol As Long ' 记录上次操作的列，避免跨列干扰

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim lastCol As Long, keyCol As Long, lastRow As Long
    Dim sortRange As Range, helperCol As Range
    
    ' 仅处理列头（第一行单元格）
    If Target.Row <> 1 Then Exit Sub
    
    keyCol = Target.Column
    lastCol = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    ' 超出数据范围则退出
    If keyCol > lastCol Then Exit Sub
    
    Application.ScreenUpdating = False
    Cancel = True
    
    ' 检查是否存在辅助列（列名为"原始行号"），不存在则创建
    Set helperCol = Me.Rows(1).Find(What:="原始行号", LookIn:=xlValues, LookAt:=xlWhole)
    If helperCol Is Nothing Then
        lastCol = lastCol + 1
        Set helperCol = Me.Cells(1, lastCol)
        helperCol.Value = "原始行号"
        ' 填充原始行号
        Me.Cells(2, lastCol).Resize(Me.Cells(Me.Rows.Count, keyCol).End(xlUp).Row - 1).Value = _
            Application.Transpose(Evaluate("ROW(2:" & Me.Cells(Me.Rows.Count, keyCol).End(xlUp).Row & ")"))
        ' 隐藏辅助列
        helperCol.EntireColumn.Hidden = True
    End If
    
    lastRow = Me.Cells(Me.Rows.Count, keyCol).End(xlUp).Row
    Set sortRange = Me.Range(Me.Cells(1, 1), Me.Cells(lastRow, lastCol))
    
    ' 切换状态：如果当前操作的是同一列，反转状态；不同列则重置为未排序
    If originalCol <> keyCol Then
        blnSorted = False
        originalCol = keyCol
    Else
        blnSorted = Not blnSorted
    End If
    
    If blnSorted Then
        ' 按目标列降序排序
        sortRange.Sort Key1:=Me.Cells(2, keyCol), Order1:=xlDescending, Header:=xlYes
    Else
        ' 按原始行号升序，恢复初始排列
        sortRange.Sort Key1:=helperCol, Order1:=xlAscending, Header:=xlYes
    End If
    
    Set sortRange = Nothing
    Set helperCol = Nothing
    Application.ScreenUpdating = True
End Sub

关键修改点 #

• 添加了辅助列存储原始行号，确保能准确恢复初始顺序
• 新增originalCol变量，避免切换不同列时状态混乱
• 调整逻辑：首次双击目标列→降序；再次双击同一列→恢复原始排序；切换其他列则重新开始计数

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