如何通過單擊Excel中的標題對列數據進行排序？

假設我有一系列數據，現在，我想通過單擊任意列標題以顯示以下屏幕截圖按升序或降序對數據進行排序。 您如何在Excel中解決這項工作？

通過單擊帶有VBA代碼的列標題對數據進行排序

通過單擊帶有VBA代碼的列標題對數據進行排序

通常，在Excel中，您可以應用“排序”功能來快速，輕鬆地對數據進行排序，但是，通過單擊單元格來對數據進行排序，以下VBA代碼可以幫您一個忙。

1。 右鍵單擊要對數據進行排序的工作表標籤，方法是單擊一個單元格，然後選擇 查看代碼 從上下文菜單中，然後在打開的 適用於應用程序的Microsoft Visual Basic 窗口，將以下代碼複製並粘貼到空白模塊中：

VBA代碼：通過單擊單元格或列標題對數據進行排序：

Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub

2。 然後保存並關閉代碼窗口，現在，當您雙擊數據范圍內的任何單元格或列標題時，該列將以升序排序，如果再次雙擊它，則該列將立即降序排序。

更多相關文章：

如何通過單擊單元格來更改單元格值？

如何僅通過單擊Excel中的單元格內容來過濾數據？