Неправильная сортировка при использовании метода .sort

@dtr315 · Регистрация: 25.03.2012

Суть проблемы:

Есть таблица в Excel'e которую надо отсортировать по столбцу
велосипед решил не придумывать, использовал метод .sort

Visual Basic

1	Worksheets("Work").Range("A:G").Sort Key1:=Worksheets("Work").Range("G1")

но вот беда при использовании метода .sort на данные вида
%i123
%i90
%i124

получается:
%i123
%i124
%i90

а хотелось бы видеть:
%i90
%i123
%i124

@~~Апострофф~~ · 25.03.2012, 14:06

Абсолютно правильная сортировка строк

%i123
%i124
%i90

т.к. "9" > "1".
Самый простой выход - форматировать записи с окончанием < 100 таким образом -
%i005
%i090

@Казанский · 25.03.2012, 15:10

Можно в соседнем столбце выделить числа формулой, отсортировать по нему и удалить:

Visual Basic

Sub bb()
With Range("G1", Cells(Rows.Count, "G").End(xlUp)).Offset(, 1)
    .FormulaR1C1 = "=--MID(RC[-1],3,99)"
    Range("A:H").Sort Key1:=[H1], header:=xlNo
    .Delete
End With
End Sub

@dtr315 · 25.03.2012, 15:58 **[ТС]**

Здесь проблема в том, что не <100, а <10000. Требуется разбить гигантские таблицы с данными на более мелкие и параллельно отсортировать их. В итоге проверка каждой ячейки на длинну и добавление нужного колличества нулей будет очень тормозить процесс. И хотя, на крайний случай, оба решения подходят, все таки интересно, есть ли способ используя опции метода или даже настройки самой системы, региональных параметров, например, объяснить методу, что 100>99?

@Казанский · 25.03.2012, 16:24

Сообщение от dtr315

проверка каждой ячейки на длинну и добавление нужного колличества нулей будет очень тормозить процесс.

При ~10000 строках основное время в любом случае займет сортировка.

Сообщение от dtr315

есть ли способ ... объяснить методу, что 100>99?

Вы же, наверно, изучили диалог сортировки и попробовали разные параметры?
В принципе можно создать пользовательский список из строк
"%i1", "%i2", ..., "%i9", "%i10", ..., "%i99", "%i100", ..., "%i9999", "%i10000"
и сортировать по нему. Но я не уверен, что можно создать такой длинный пользовательский список. А в том, что сортировка по пользовательскому списку медленнее, чем по стандартному возрастанию/убыванию - уверен

Dragokas · 25.03.2012, 19:18

Почитал иностранные форумы тыц и тыц.
Но везде пишут о разделении данных.

На сколько будет медленно, если воспользоваться тем же алгоритмом Qsort, задав в качестве входящего параметра MID(Arr(a),3), загнав в массив все данные?
Может что возможно сделать с помощью регулярных выражений.

Казанский, а можно подробней об этом способе? (и как задается ключ)
Я так понимаю в несколько строк загоняем значения в нужном нам порядке и это будет правилом для .Sort key:=Range(...), в каком конце окажутся данные не подпадающие под правило.

@~~Апострофф~~ Заблокирован
	25.03.2012, 14:06	2
	Абсолютно правильная сортировка строк %i123 %i124 %i90 т.к. "9" > "1". Самый простой выход - форматировать записи с окончанием < 100 таким образом - %i005 %i090 1

@dtr315 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 13
	25.03.2012, 15:58 [ТС]	4
	Здесь проблема в том, что не <100, а <10000. Требуется разбить гигантские таблицы с данными на более мелкие и параллельно отсортировать их. В итоге проверка каждой ячейки на длинну и добавление нужного колличества нулей будет очень тормозить процесс. И хотя, на крайний случай, оба решения подходят, все таки интересно, есть ли способ используя опции метода или даже настройки самой системы, региональных параметров, например, объяснить методу, что 100>99? 0

@Казанский 14942 / 6341 / 1724 Регистрация: 24.09.2011 Сообщений: 9,976
	25.03.2012, 16:24	5
	Сообщение от dtr315 проверка каждой ячейки на длинну и добавление нужного колличества нулей будет очень тормозить процесс. При ~10000 строках основное время в любом случае займет сортировка. Сообщение от dtr315 есть ли способ ... объяснить методу, что 100>99? Вы же, наверно, изучили диалог сортировки и попробовали разные параметры? В принципе можно создать пользовательский список из строк "%i1", "%i2", ..., "%i9", "%i10", ..., "%i99", "%i100", ..., "%i9999", "%i10000" и сортировать по нему. Но я не уверен, что можно создать такой длинный пользовательский список. А в том, что сортировка по пользовательскому списку медленнее, чем по стандартному возрастанию/убыванию - уверен 0

Dragokas 17589 / 7432 / 884 Регистрация: 25.12.2011 Сообщений: 11,227 Записей в блоге: 16
	25.03.2012, 19:18	6
	Почитал иностранные форумы тыц и тыц. Но везде пишут о разделении данных. На сколько будет медленно, если воспользоваться тем же алгоритмом Qsort, задав в качестве входящего параметра MID(Arr(a),3), загнав в массив все данные? Может что возможно сделать с помощью регулярных выражений. Казанский, а можно подробней об этом способе? (и как задается ключ) Я так понимаю в несколько строк загоняем значения в нужном нам порядке и это будет правилом для .Sort key:=Range(...), в каком конце окажутся данные не подпадающие под правило. 0

Опции темы