UC知道EXCEL中的排序问题(SOS)
来源：百度知道 编辑：UC知道 时间：2024/05/28 16:16:49
请问:两个EXCEL文件,如下:
第一个:
7
3
4
1
6
5
2
5
第二个:
1
1
1
2
2
2
3
3
3
4
4
4
5
5
5
6
6
6
7
7
7
也就是,两个表的数相同,但是个数不同,我要让第二个表中的数据按第一个表中的数据的顺序排列,而且第一个表中的数据是无规律的，像上第一个表！使它变成下列的顺序，谢谢！
7
7
7
3
3
3
4
4
4
．．．．．．
第一个:
7
3
4
1
6
5
2
5
第二个:
1
1
1
2
2
2
3
3
3
4
4
4
5
5
5
6
6
6
7
7
7
也就是,两个表的数相同,但是个数不同,我要让第二个表中的数据按第一个表中的数据的顺序排列,而且第一个表中的数据是无规律的，像上第一个表！使它变成下列的顺序，谢谢！
7
7
7
3
3
3
4
4
4
．．．．．．
我假设你表一的数据在A列,从A1开始.将你表二的数据复制到表一的B列,从B1开始.然后将下列代码复制到宏代码框中,运行.C列会出来你要的结果.
Sub aaaa()
Dim a As Integer
Dim b As Integer
a = WorksheetFunction.CountA(Range("a:a"))
Range("c1").Select
For x = 1 To a
b = WorksheetFunction.CountIf(Range("b:b"), Range("a" & x))
For y = 1 To b
ActiveCell.Value = Range("a" & x)
ActiveCell.Offset(1, 0).Select
Next
Next
End Sub