排序故障值超过1000

时间:2019-03-07 07:48:49

标签: excel vba sorting

我在对从最低值到最高值的行进行排序时遇到问题

当前排序项目列表(D列):

DBB1172 
DBB1178 
DBB1184 
DBB1196 
DBB1202 
DBB1208 
DBB332 
DBB338 
DBB344 
DBB350 
DBB356

应该是什么:

DBB332
DBB338
DBB344
DBB350
DBB356
DBB1172
DBB1178
DBB1184
DBB1196
DBB1202
DBB1208

我的代码:

LastUsedRow = ThisWorkbook.Sheets("Valve").Range("C4").End(xlDown).row
lastusedcolomb = ThisWorkbook.Sheets("Valve").Range("C4").End(xlToRight).Column
NumberOfItems = LastUsedRow - 3
Debug.Print NumberOfItems
ThisWorkbook.Sheets("Valve").Range("C4:S" & LastUsedRow).Sort key1:=Sheets("Valve").Range("D:D"), Order1:=xlAscending, Header:=xlNo, _
orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

1 个答案:

答案 0 :(得分:2)

如果辅助列很好,那么假设您的数据在列A中。

在助手列中,输入公式,例如单元格B2:

=MID(A2,4,99)+0

向下复制,然后在排序时,对B列(升序)进行排序。