如何通过点击标题对Excel中的列数据进行排序？

假设我有一个数据区域，现在，我想通过点击任何列标题来按升序或降序对数据进行排序，以获得如下截图所示的结果。在Excel中，您如何解决这个问题？

使用VBA代码通过点击列标题对数据进行排序

使用VBA代码通过点击列标题对数据进行排序

通常，在Excel中，您可以应用排序功能快速轻松地对数据进行排序，但要通过简单地点击单元格来排序数据，以下VBA代码可以提供帮助。

1. 右键单击要通过点击单元格进行排序的工作表标签，并从上下文菜单中选择查看代码，在打开的 Microsoft Visual Basic for Applications窗口中，将以下代码复制并粘贴到空白模块中：

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中的单元格内容来筛选数据？