Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2009, 16:37   #1
stasbz
Пользователь
 
Регистрация: 24.05.2009
Сообщений: 16
По умолчанию Поиск двух одинаковых строк идущих последовательно

Подскажите, как я могу найти строки с одинаковыми значениями чисел, при условии, что эти строки следуют друг за другом? (рассматриваем только один столбец)
Удобно было бы делать еще замену одинаковых ячеек на какой-то один и тот же символ : #

Последний раз редактировалось stasbz; 21.06.2009 в 16:45.
stasbz вне форума Ответить с цитированием
Старый 21.06.2009, 16:41   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Ну, нашли мы такие строки, и что дальше?
Что с ними надо сделать?

Если просто выделить, то используйте условное форматирование (с формулой в качестве условия)

Цитата:
при условии, что эти строки следуют друг за другом?
Это обязательное условие?

Если через 5 строк встретится такое же значение, его не надо заменять на # ?

Макрос устроит?

Последний раз редактировалось EducatedFool; 23.06.2009 в 16:17.
EducatedFool вне форума Ответить с цитированием
Старый 21.06.2009, 17:06   #3
stasbz
Пользователь
 
Регистрация: 24.05.2009
Сообщений: 16
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
Это обязательное условие?

Если через 5 строк встретится такое же значение, его не надо заменять на # ?

Макрос устроит?
Лучше всего показать на примере:
1
2
3 интересует эти две ячейки
3 интересует эти две ячейки
4
5 интересует эти две ячейки
5 интересует эти две ячейки
6
3 не интересует
7
3 интересует эти две ячейки
3 интересует эти две ячейки
8
То есть важно, чтобы строки идущие друг за другом были одинаковые!
вторую ячейку в этом случае надо заменить на символ # или другой символ.
Может быть и макрос устроит, к сожалению опыт нет никакого. с excel не работал. главное задачу решить.
stasbz вне форума Ответить с цитированием
Старый 21.06.2009, 17:23   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Пример во вложении.

Нажми сначала зелёную кнопочку, а потом желтую.
(при нажатии зелёной кнопки ячейки заполняются случайными числами)
Выделение цветом происходит при помощи условного форматирования.

Замена значений - при помощи кода:
Код:
Sub Заполнить()
    Dim sh As Worksheet: Set sh = ActiveSheet: sh.UsedRange.ClearContents
    For i = 1 To 100: Cells(i, 1) = Fix(Rnd(i) * 6): Next
End Sub

Sub Обработка()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If cell = cell.Offset(1) Then cell.Offset(1) = "#"
    Next cell
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 21.06.2009, 18:40   #5
stasbz
Пользователь
 
Регистрация: 24.05.2009
Сообщений: 16
По умолчанию

пример работает. все отлично. сейчас пытаюсь подключить данный макрос к моему документу excel.
stasbz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск одинаковых строк Demitriy Microsoft Office Excel 45 26.07.2010 08:50
Поиск лишнего/иного символа при сравнении двух строк Bezdar Microsoft Office Excel 5 13.11.2008 13:07
Выделение одной строки из двух одинаковых REMove Microsoft Office Excel 2 15.12.2007 16:03
Поиск одинаковых строк в файле ATL Помощь студентам 13 02.05.2007 01:05