UC知道如何让excel排序
来源：百度知道 编辑：UC知道 时间：2024/07/02 01:40:41
我需要点击一下或两下，表中的“第一次”，表中的所有数据就会按“第一次”成绩作降序或升序排列。
按ALT+F11,进入VBA编辑器。然后在左侧双击相应的工作表，出现编辑窗口，并输入以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.value = "第一次" Then
If [d2].Value > [d3].Value Then
Range("a1:e" & [a65536].End(xlUp).Row).Sort key1:=Range("d2"), order1:=xlAscending, Header:=xlYes
Else
Range("a1:e" & [a65536].End(xlUp).Row).Sort key1:=Range("d2"), order1:=xlDescending, Header:=xlYes
End If
Range("e1").Select
End If
End Sub
选中第一次的一列内容/数据/筛选/自动筛选就行了
这时第一次后面有一个小三角号，点击，可以选择任意一个数据，如果你要升序（或降序），就点击升序（或降序），就可以看到该成绩的第一名第二名了。其他相同。
Excel本就有这样的功能，没必要用VB编写吧？
将序号以及第六次的右下角选中，选择菜单>>数据>>筛选-->自动筛选，就可以选择任意列的排序了。
