下面是个超简单的excel双击列标题自动排序的VBA代码教程，图老师小编精心挑选推荐，大家行行好，多给几个赞吧，小编吐血跪求~
【 tulaoshi.com - Excel教程 】
通过以下的VBA代码，将其放到工作表的双击事件中，就能取到双击工作表的列标题(双击列的名字)，当前列自动进行排序。
比如，将代码放在如下的事件中：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
代码如下：
Dim YouRg As Range
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）If Target.Column = Me.Cells (1,1).CurrentRegion.Columns.Count And Target.Row = 1 Then
If Target.Column mnColumn Then
mnColumn = Target.Column
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）mnDirection = xlAscending
Else
If mnDirection = xlAscending Then
mnDirection = xlDescending
Else
mnDirection = xlAscending
End If
End If
Set YouRg = Me.Cells(1, 1).CurrentRegion
YouRg .Sort key1:=YouRg .Cells(1, mnColumn), order1:=mnDirection,header:=xlYes
Set YouRg = Nothing
Cancel = True
End If
以上代码是升序排序，你可以改为降序排序。
来源:https://www.tulaoshi.com/n/20160219/1606277.html
看过《excel双击列标题自动排序的VBA代码》的人还看了以下文章 更多>>
