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

如何通過單擊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中的單元格內容來過濾數據？