Отсортировать ячейки с разными валютными форматами

[is2]

Добрый день

Есть таблица (Excel 2003) в которой внесены суммы контрактов в рублях и в евро. Обозначения валют установлены в формате ячеек.

Как отделить от рублевых сумм (отсортировать или перенести на другой лист) суммы в евро. Таблица может содержать тысячи строк и поступает в отдел в таком виде как приведена в прикрепленном файле.


Решение устраивает любым способом (встроенными в Excel формулами и функциями, средствами макросов)

[Watcher_1]

Держите код!

[Watcher_1]

Чот не приложилось

[is2]

Watcher_1
cпасибо за файл.

Подскажите как перенести эту функцию в другую книгу Excel или нужно только переносить содержимое в этот файл и после выполнения сортировки пересохранять файл под нужным именем?

Если добавляю столбец перед сортируемым, то функция не работает. Как можно переместить кнопку с функцией самостоятельно для добавления столбца. Если это не предполагается без установки дополнительных приложений, то переместите пожалуйста на 9 столбец, чтобы была возможность заполнять таблицу как в приложении (Реестр 2).

[Hugo121]

Другой вариант - UDF:

Function WazzUp(r As Range)
WazzUp = r.NumberFormat
End Function

Не спрашивайте, почему WazzUp - какая по сути разница?

Но не идеально - там есть разброд и шатания на валютном рынке:

#,##0.00" EUR"
0.00" EUR"

Но можно использовать - протянуть по столбцу и по нему отсортировать.
Если фильровать по "содержит EUR" - то разброд не влияет

[Watcher_1]

Ловите!
С вашим файлом не разобрался в нем отсутствуют ярлыки листов
Вставляйте данные в мой, но имейте ввиду начинает считать с 8-строки (с этой строки начинаются данные у вас)

[is2]

спасибо за помощь