excel中让一列的数据按另一列数据的次序排序

正确顺序应该是：168273540
请用VBA写个程序：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 13 And Target.Column = 1 And Target.count = 1 Then '（A13是触发单元格）
Dim x2(10, 2) As Integer
Dim i, j, k, m As Integer
For i = 0 To 9
x2(i, 0) = i
x2(i, 1) = 0
Next i
k = 13 - 1
m = 2
While (k > 0)
For j = 1 To 3
x2(Val(Mid(Cells(k, 1), j, 1)), 1) = x2(Val(Mid(Cells(k, 1), j, 1)), 1) + 1
If x2(Val(Mid(Cells(k, 1), j, 1)), 1) = 2 Then
Cells(13, m) = x2(Val(Mid(Cells(k, 1), j, 1)), 0)
Cells(14, m) = 2
m = m + 1
End If
Next j
k = k - 1
Wend
End If
End Sub

　　第一步 首先看一下原始数据。当前的数据是根据【姓名】字段排序后的，同一个人的数据顺序排列在一起。需要随机打乱排列顺序。
　　第二步 双击E2单元格，输入函数：
　　=RAND()
　　回车后单元格将返回一个小于1大于0的随机数。
　　第三步 双击E2单元格右下角的填充柄将该函数填充到E列。
　　第四步 复制E列数据，鼠标右键菜单里选择【选择性粘贴】，选择【值和数字格式】。
　　第五步 粘贴完毕后，E列的RAND()函数返回值将转化成数值。
　　第六步 选中A到E列数据，选择【数据】-【排序】。
　　第七步 主关键字选择【E列】，升序和降序都可以，然后点击【确定】按钮。
　　第八步 完成后效果如下，【姓名】字段下数据已经随机排序。
　　原理说明：由于E列数字是随机数，升序或降序排列后对原始排列顺序来说也已经是随机顺序了。所以利用此方法排序就是获取原顺序的随机排列。

1、以下图中的表格数据为例演示操作方法。接下来，要把表格数据按月分组。

2、把7月的数据全选中。

3、鼠标移到菜单栏的数据选项卡这里，点击一下。下面展开与之相关的所有功能组。再看右边这里，找到：创建组。

4、点击创建组的下拉按钮。弹出两选项，点击：创建组

5、弹出对话框，点选：行；再点确定就可以了。

Excel中的排序，除了升序和降序外，还可以按指定列表顺序排列，今天介绍Excel中的自定义列表。

数据透视表中后一列排序来自只能在前一列相同的内容的内容排序，即后一列的排序不会打乱前矹的排序。追问 : 可我想要让单位这一列排序怎么做呢？不要手动排序的，我知道怎么手动排序，我就想知道怎么自动排序给这一列
追答 : 一个方法是把单位字段放到名称前面，但这样肯定极别扭，也不符合一般的数据要求。提供一个思路，没模拟数据测试花时间就没测试了。
在数据源中复制一列单位列，并将其命名为类似于“单位序列”，并可以自定义序列中定义好单位排序的序列。然后数据透视表中，将这个单位序列放到名称之前，排序时按自定义的序列排序。最后把这列隐藏起来。应该是可行的，但毕竟没测试，不敢肯定。