excel 代码按级别排序

固定资产按三级(类、项、目)分类,做到如下排序,2
205
2222
20501
20502
3
30101
30102

注意到楼主这个分类为3层。每层均有多个子分类:

2
--205
----20501
----20502
--222
----22201
----22202

由于位数是固定的,可以采用如下方案:
1,首先使用辅助列将所有项目按 2开头,3开头,4开头进行排列。
在数据列[B1-B10],在A1中输入: =left(b1,1)
下拉到A10;
选择A列进行 排序,升序,

2,这个时候即可出现楼主的 样式。2开头的从小排到大,3也是。
3,但是我怀疑,楼主还需要进一步分类,
所以在此继续说下,

将之前我们修改为:
=left(B1,3),然后以辅助列为主再进行排列
为什么是3,因为205,222,301,都是三位的,楼主视情况而定吧。
注意,这个时候 大分类,2,3, 都不要选进来了。

多试试用 辅助列 排序,这才是本次问题的关键和精要所在。
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-07-20
如果我没有理解错的话,建议可以用个简单的办法,在三类代码前加一列标1.2.3分别对应3个级别,排序时第一顺序选这一列按升序,第二顺序选原来代码列按升序,再确定,如果不希望看到前面加的一列可以排序后再删掉
第2个回答  2010-07-20
添加辅助列
假设你原来数据在A列
B1输入公式 =LEFT(A1,1)
向下填充
然后选中A B 两列 排序
主要关键字选择B列,升序
次要关键字选择A列,升序
确定,
完成后删除B列,即可本回答被提问者采纳
第3个回答  2010-07-20
把列设置成字符,顺序排列就可以
第4个回答  2010-07-20
使用辅助列 是最好的 推荐!!可以和我联系 我手把手教你

excel 代码按级别排序
1,首先使用辅助列将所有项目按 2开头,3开头,4开头进行排列。在数据列[B1-B10],在A1中输入: =left(b1,1)下拉到A10;选择A列进行 排序,升序,2,这个时候即可出现楼主的 样式。2开头的从小排到大,3也是。3,但是我怀疑,楼主还需要进一步分类,所以在此继续说下,将之前我们修改为:=left...

对excel排序的vb代码
Sub 排序()ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D1"), _SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A1:D6")...

Excel VBA 排序代码
选中B列,右键,复制,右键,选择性粘贴,数值 这样A列的数字和文本都转换为B列的文本了。选择A到B列,以B列排升序,完成。

如何实现在一个EXCEL表格中输入一列数字就自动按照设定好的排序方法进...
第一步,在工作表标签上点鼠标右键,选择【查看代码】,如下图:第二步,查看随后会出现VBA窗口,粘贴上面的代码后关闭,粘贴代码后如下图:

下面的excel排序代码中是什么意思,哪些是变量,各变量代表什么意思?_百度...
+ 1'将目标表进行排序,以C列按刚才的自定义内容进行排序。04. Application.DeleteCustomList ListNum:=Application.CustomListCount'删除新增的自定义排序05.End Sub 这里没有变量 全部内容就是新增一个自定义排序序列,然后C列按自定义排序进行排序,最后恢复自定义序列表内容,完成。

excel vba不确定单元格排序代码如何写?
一行语句就可以:Sub 排序() Selection.CurrentRegion.Sort key1:=Selection, order1:=xlAscendingEnd Sub

excel怎么像这样:“000000001,000000002,000000003,000000004,000000005...
按Alt+F1打开VBA编辑器,双击左边的ThisWorkbook,在代码窗口黏贴下面的代码:Private Sub Workbook_BeforePrint(Cancel As Boolean)Range("A1") = Range("A1") + 1 'Me.Save End Sub (代码假设你存储打印次数的位置是A1,请自行修改)如果你需要确保数据被保存,可把第三行前的单引号去除 注意:...

求VB6控制Excel排序数据的代码。完整、最好上机测试过。也可以发到我...
xlsApp.Visible = False '使Excel隐藏不可见 xlsApp.Workbooks.Open ("C:\\book1.xls") '打开EXCEL文件 '这里开始就是你录制的VBA代码 '我在这里举1个例子,主要是告诉你要明确操作的是哪个表,哪个单元格 xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A1").Value = "您好!

Excel 满足两个以上条件
假设校名在A1、系名在B1、级别在C1,在D1输入公式:=LEFT(A1,3)&MID(B1,1,2)&RIGHT(C1,2)

在EXCEL中 怎么把很多不同地区记录 按地区分类
一楼说的固然有用,但未必能达到目的。一个省有好多个市、县,地区A(省)中可以有不同的A1、A2、……(市、县),而通常的记录却是用A1、A2……表达,怎样排序和筛选?建议:在左侧插入一列给地区设置代码,然后按代码排序、筛选,问题就简便多了。

相似回答