作业帮 > 综合 > 作业

第一列是数字,每个数字对应第二列3行文字,怎么用宏或公式排列这两列,排序规则是按第一列数字从小到大

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/17 14:29:56
第一列是数字,每个数字对应第二列3行文字,怎么用宏或公式排列这两列,排序规则是按第一列数字从小到大
排序结果如右边所示
第一列是数字,每个数字对应第二列3行文字,怎么用宏或公式排列这两列,排序规则是按第一列数字从小到大
用下面代码就可以了,假设数据的第一列是从A1单元格开始的.
如果不是从A1单元格开始的,需要修改代码中对应的变量.
Sub 排序()
x = [a65536].End(xlUp).Row
For i = 2 To x + 2
If Cells(i,1) = "" Then Cells(i,1) = Cells(i - 1,1) + 0.01
Next
Range(Cells(1,1),Cells(i - 1,2)).Select
Selection.Sort Key1:=Range("A1"),Order1:=xlAscending,Header:=xlNo,_
OrderCustom:=1,MatchCase:=False,Orientation:=xlTopToBottom,SortMethod _
:=xlPinYin,DataOption1:=xlSortNormal
For i = 2 To x + 2
If Cells(i,1) Int(Cells(i,1)) Then Cells(i,1) = ""
Next
End Sub
再问: 我试了下,行的情况相同,数据只有在A,B两列能成功排序。非常感谢!!请问,如果数据分布在2列以上(如A,B,C列),应该修改何出参数?行的情况还是相同。