作者：乔山办公网日期：
返回目录：excel表格制作
在B1单元格输入以下公式，然后向下填充公式
=RAND()
在D1单元格输入以下公式，然后向下填充公式
=INDEX(A:A,MATCH(LARGE(B:B,ROW(A1)),B:B,0))
可以实现，只是如果表格数据较多的时候可能复系统比较卡，方法是使用VBA代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Me.UsedRange.Sort key1:=Me.UsedRange.Cells(1, 1), order1:=xlAscending
End Sub
第一步，在工作表标签上点鼠制标右键，选择【查看代码】，如下图：
第二步，查看随后会出现VBA窗口，粘贴上面的代码后关闭，zhidao粘贴代码后如下图：