作业帮excel表格排序.让所有的数据按照B列的顺序使C列与其相同排列起来 .如第一个排号是9,就将序号的9,以及姓名,成绩等全部排在第一行.排成：20070102009 9 9 谢芳 98 84 85 97 8320070102005 5 5 扬林 58 85 77
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 03:27:09
excel表格排序.让所有的数据按照B列的顺序使C列与其相同排列起来 .如第一个排号是9,就将序号的9,以及姓名,成绩等全部排在第一行.排成：20070102009 9 9 谢芳 98 84 85 97 8320070102005 5 5 扬林 58 85 77
excel表格排序.让所有的数据按照B列的顺序使C列与其相同排列起来 .
如第一个排号是9,就将序号的9,以及姓名,成绩等全部排在第一行.
排成：
20070102009 9 9 谢芳 98 84 85 97 83
20070102005 5 5 扬林 58 85 77 56 98
.
就是让数据按我的规则排列就行了,
excel表格排序.让所有的数据按照B列的顺序使C列与其相同排列起来 .如第一个排号是9,就将序号的9,以及姓名,成绩等全部排在第一行.排成：20070102009 9 9 谢芳 98 84 85 97 8320070102005 5 5 扬林 58 85 77
打开vb编辑器,输入下如下代码：
注意：第三行的13,第四行的9是根据你表格最大行数和列数定的
Sub tt()
Const Row As Integer = 13
Const col As Integer = 9
Dim a(Row + 1,col + 1)
For i = 4 To Row
For j = 1 To col
temp = Cells(i,"B")
If j = 2 Then
a(i,j) = Cells(i,j)
Else
a(i,j) = Cells(temp + 4 - 1,j)
End If
Next j
Next i
For i = 4 To Row
For j = 1 To col
Cells(i,j) = a(i,j)
Next j
Next i
End Sub
运行,即可