фильтр для строк

[Михаил2261]

Здравствуйте!
Подскажите как решить нестандартную задачу в екселе 2003:
Есть строки чисел:

2 10 12 20 25 33
8 12 21 23 28 30
1 15 16 17 18 19
5 20 25 30 36 41
1 10 22 26 27 29
6 12 16 19 26 30
1 22 26 27 32 40
Нужно оставить числа в строках, оканчивающиеся на одну и туже цифру,
остальные скрыть т.е.после работы останутся:
2 12 10 20
8 28
5 25 20 30
6 16 26
22 32
спасибо

[alebed]

Могу предложить уже неоднократно использованную мной на форуме конструкцию сравнения данных но с небольшими изменениями

Sub Уникальные()
Dim x As Variant, y As Variant, SravnenyeDiap As Variant
Range("A1:F7").Select
Set SravnenyeDiap = Range("A1:F7")
For Each x In Selection
For Each y In CompareRange
If Right(x.Value, 2) = Right(y.Value, 2) And x.AddressLocal <> y.AddressLocal Then x.Offset(0, 8) = x
Next y
Next x
End Sub

Прим: x.AddressLocal <> y.AddressLocal необходимо чтобы не сравнивать ячейки сами с собой
Важно ! Перед отработкой числа необходимо сохранить как текст

[EducatedFool]

Можно и формулами попробовать:

  Ячейка: H1      Формула  (стиль A1):   =ЕСЛИ(СУММПРОИЗВ((ОСТАТ((A1-$A1:$F1);10)=0)*($A1:$F1))>A1;A1;"")
                  Формула  (стиль R1C1): =ЕСЛИ(СУММПРОИЗВ((ОСТАТ((RC[-7]-RC1:RC6);10)=0)*(RC1:RC6))>RC[-7];RC[-7];"")

[Михаил2261]

спасибо за программу ,но у меня выскакивает ошибка на строке
For Each y In CompareRange
что делать?

[alebed]

Михаил2261 прошу меня извенить
когда писал ответ в голову влезла переменная из моей текущей работы
просто необходимо заменить
For Each y In CompareRange
на
For Each y In SravnenyeDiap