Сортировать ошибки со значениями более 1000

Question

У меня проблема с сортировкой строк от минимального к максимальному значению

Текущий список отсортированных элементов (столбец 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

Answer 1

Если со вспомогательным столбцом все в порядке, то предположим, что ваши данные находятся в столбце А.

В столбце помощника введите формулу, скажем, ячейку B2:

=MID(A2,4,99)+0

Скопируйте, а затем при сортировке сортируйте по столбцу B (По возрастанию).