通过以下的VBA代码，将其放到工作表的双击事件中，就能取到双击工作表的列标题（双击列的名字),当前列自动进行排序。

比如，将代码放在如下的事件中：

私有子工作表_选择更改（按值目标作为范围)

末端接头

代码如下：

将您的图像调暗为范围

如果目标。列=我。单元格(1,1)。当前区域。列。计数和目标。行=1然后

如果目标。列然后

mnColumn=目标。圆柱

mnDirection=Xl升序

其他

如果方向=x升序，则

mnDirection=xlDescending

其他

mnDirection=Xl升序

如果…就会结束

如果…就会结束

设定你的g=我。细胞(1,1)。当前区域

你的排序键1:=你的g .单元格(1，mnColumn)，order1:=mnDirection，header:=xlYes

设置你的重力=无

取消=真

如果…就会结束

以上代码是升序排序，你可以改为降序排序。