Господа, есть большая таблица с повторяющимися данными в колонках. Колонки чередуются то с числовыми данными, то с тектовыми, то с датами. Пример во вложенном файле.
Задача быстро выделить по фильтру строки содержащие одинаковые значения по какой либо из колонок. Можно использовать "Автофильтр", но я решил написать макрос который делает подобное.
Т.е. тыкаемсы в любую ячейку таблицы. Жмем Ctrl+a — работает Макрос — выделяются все строки с данными равными исходной ячейки.
Столкнулся с проблемой в числовых колонках, когда формат ячеек "Общий" и когда "Числовой" с разделителем групп разрядов. Текст Макроса привожу ниже. Помогите доработать, Please...

Sub Select_Name()

' Сочетание клавиш: Ctrl+a

Dim MyZn, MyFormat
MyFormat = Selection.NumberFormat
MyZn = Format(Selection, MyFormat)
Selection.AutoFilter Field:=Selection.Column, Criteria1:=MyZn, Operator:= _
xlAnd
Selection.End(xlUp).Select
End Sub

Кроме того, оказалось что в региональных настройках необходимо заменить разделитель целой и дробной части на "." (вместо ","), иначе "Числовые" данные вообще не фильтруются.

Так что? 46 человек прочитало и ни у кого никаких идей?
Господа, нюанс в задачке то интересный. Кто-то же знает как надо!