excel表格排序.让所有的数据按照B列的顺序使C列与其相同排列起来 .
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 02:52:05
excel表格排序.让所有的数据按照B列的顺序使C列与其相同排列起来 .
如第一个排号是9,就将序号的9,以及姓名,成绩等全部排在第一行.
排成:
20070102009 9 9 谢芳 98 84 85 97 83
20070102005 5 5 扬林 58 85 77 56 98
.
就是让数据按我的规则排列就行了,
如第一个排号是9,就将序号的9,以及姓名,成绩等全部排在第一行.
排成:
20070102009 9 9 谢芳 98 84 85 97 83
20070102005 5 5 扬林 58 85 77 56 98
.
就是让数据按我的规则排列就行了,
打开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
运行,即可
注意:第三行的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
运行,即可
excel表格排序.让所有的数据按照B列的顺序使C列与其相同排列起来 .
EXCEL问题,B表格按照A表格的顺序排序!是有很多列的,只有第一列有相同的内容,后面的全是数据
Excel表格 我想让A列的排序不变,让B、C、D、E的排序按照A列排序
excel排序方法:如图让A列C列数据相同顺序不同 怎么排才能让表格数据统一A列升序且C列数据和A列相同
如何让excel表格中的两列数据相同的排列在一行
电子表格:按照A列数据的顺序,排列B,C,D,E,F列
两EXCEL表格中有一列编码是排序不同但总数和编码都相同.让一张表的每行数据按照另一张表的那列编码排序
excel表中有N列数据,其中A、B两列有相同项.如何找出两列中的相同项,并相对应的排列.且A列顺序不变.
excel怎么让B列按A列的顺序排序
EXCEL表格B列对应A列,C列中部分与A列相同如何在D列找出C列对应的A列部分的B列数据
EXCEL如何把第二列的数据按照第一列数据排序,且第二列的数据少于第一列.
Excel两列内容(A、B),找出B列中相同数据,在C列中得出A列的序号按大小排列