第一列是数字,每个数字对应第二列3行文字,怎么用宏或公式排列这两列,排序规则是按第一列数字从小到大
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/17 14:29:56
第一列是数字,每个数字对应第二列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列),应该修改何出参数?行的情况还是相同。
如果不是从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列),应该修改何出参数?行的情况还是相同。
第一列是数字,每个数字对应第二列3行文字,怎么用宏或公式排列这两列,排序规则是按第一列数字从小到大
excel表格中第一列数字乘以40%+第二列数字乘以60%=第三列 怎么用公式算?
电子表格用第三列第一行的数字加第一列第二行的数字减去第二列第二行的数字,公式怎么设
excle设置公式,假若第三列等于第一列乘以第二列再乘以一个数字怎么设置啊?
在excel中我有两列数字,第一列中数字的第二列就没有,第二列有数字的第一列就没有.怎么合并?
EXCEL中,第一列输入一列数字,在第二列输入相同的一列数字.然后怎么比较第二列中数字是否与第一列相同.
有A和B两列数字,在C列用公式求出了A列和B列都有的数字.怎么让C列排序,并在D列显示排列后的结果.
正整数按如图规律排列,请写出第20行,第21列的数字:() 第一列 第二列 第三列 第四列 第五列 第一行 1
excel中关于两列数字,一列字母编号中,请将第一列与第二列相同的数字,赋予第二列对应的字母编号
将自然数按以下规律排列,数字3排在第二行第一列,数字13排在第三行第三列,数字168排在第几行第几列
excel中第一列数在80到90之间,第二列的数字=第一列基础上+2,这个公式怎么写?
EXCEL中A列是数字其中有重复的,B列是从小到大排列1,2,3,4,5,6.要求C列中显示B列中数字在A列中出现的次数