如何通过单击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中的单元格内容来过滤数据？