|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2010, 15:17 | #1 |
Пользователь
Регистрация: 03.05.2010
Сообщений: 37
|
фильтр для строк
Здравствуйте!
Подскажите как решить нестандартную задачу в екселе 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 спасибо |
27.05.2010, 15:52 | #2 |
Пользователь
Регистрация: 26.05.2010
Сообщений: 77
|
Могу предложить уже неоднократно использованную мной на форуме конструкцию сравнения данных но с небольшими изменениями
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 необходимо чтобы не сравнивать ячейки сами с собой Важно ! Перед отработкой числа необходимо сохранить как текст
Спасибо и Пасибы принимаются на WebMoney в американских Z143254902288 или русских R388611339241 монетах
Последний раз редактировалось alebed; 27.05.2010 в 15:53. Причина: Поспешил |
27.05.2010, 15:57 | #3 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
|
27.05.2010, 16:02 | #4 |
Пользователь
Регистрация: 03.05.2010
Сообщений: 37
|
спасибо за программу ,но у меня выскакивает ошибка на строке
For Each y In CompareRange что делать? |
27.05.2010, 16:56 | #5 |
Пользователь
Регистрация: 26.05.2010
Сообщений: 77
|
Михаил2261 прошу меня извенить
когда писал ответ в голову влезла переменная из моей текущей работы просто необходимо заменить For Each y In CompareRange на For Each y In SravnenyeDiap
Спасибо и Пасибы принимаются на WebMoney в американских Z143254902288 или русских R388611339241 монетах
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделать фильтр столбцов (не строк)? | jar76 | Microsoft Office Excel | 19 | 23.09.2014 11:34 |
Нужна программа для exel, фильтр | smnv | Фриланс | 2 | 28.05.2010 12:33 |
фильтр для чисел | Михаил1 | Microsoft Office Excel | 2 | 07.10.2009 18:49 |
фильтр для ShellTreeView | Aндрей | Компоненты Delphi | 1 | 21.05.2009 13:18 |