Макрос на выборку

[Holidays]

Добрый день, уважаемые программисты!
Нам необходимо в таблице excel отсортировать столбец А(номер) и В(сумма,привязанная к номеру).
Это выглядит следующим образом:
10000000/010113/0000005 459573,26
1часть№ Дата 2часть№
Список очень длинный.

Нужно написать макрос для того, чтобы он сортировал только по середине номера (/010113/ - это дата). Дата, в зависимости от месяца будет меняться. 1 и 2 часть № тоже менятеся. При этом сумма, должна быть привязана к номеру.

Помогите, пожалуйста!
Заранее спасибо!

[Скрипт]

Вариант без макросов (просто я бы всё-равно сортировку делал бы на Excel-листе, т.к. мне сложно было бы сделать сортировку VBA-средствами - там знания нужны) (Excel 2010):

1. копируете полностью столбец, который содержит данные такого вида:
   10000000/010113/0000005
   в другой столбец;
2. выделяете столбец, в который скопировали;
3. вкладка Данные - группа Работа с данными - Текст по столбцам;
4. ставите кружок с разделителями - Далее;
5. убираете все флажки и ставите флажок Другие - в поле пишите символ:
   /
6. Далее - Образец разбора данных:
   1. щёлкните по среднему столбцу (в нём дата) - Формат данных столбца - поставьте кружок дата;
   2. щёлкните по первому столбцу (он нам не нужен) - Формат данных столбца - поставьте флажок пропустить. То же сделайте и для третьего столбца;
7. Готово;
8. получится один столбец;
9. проведите обычную сортировку, какую вы делали раньше, по этому столбцу;
10. после сортировки удалите этот столбец.

Примечание

Столбец можно не копировать специально, а при разбивке на столбцы, на шаге 3 указать место, куда вставить данные.

[ShAM66]

Предложу формульный вариант (в столбец С):

=ДАТА(ПСТР(A1;ПОИСК("/";A1)+5;2);ПСТР(A1;ПОИСК("/";A1)+3;2);ПСТР(A1;ПОИСК("/";A1)+1;2))

Сортируем по С, удаляем С.

ЗЫ: Правда год получится 1913, а не 2013, но для сортировки это не проблема (если нет годов 19..).

[Казанский]

вариант формулы

=ДАТАЗНАЧ(ТЕКСТ(ПСТР(A1;ПОИСК("/";A1)+1;6);"0\.00\.00"))