通过以下的VBA代码,将其放到工作表的双击事件中,就能取到双击工作表的列标题(双击列的名字),当前列自动进行排序。 比如,将代码放在如下的事件中: Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub 代码如下: Dim YouRg As Range If Target.Column = Me.Cells (1,1).CurrentRegion.Columns.Count And Target.Row = 1 Then If Target.Column mnColumn Then mnColumn = T...[ 查看全文 ]