Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 12:20:42

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Сравнение двух диапазонов по последней строке
Страниц: 1 [2]  Все   Вниз
Печать
Автор Тема: Сравнение двух диапазонов по последней строке  (Прочитано 11169 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sv2015
Пользователь
**

Репутация: +3/-0
Офлайн Офлайн

Сообщений: 84


Просмотр профиля
« Ответ #15 : 05.07.2015, 16:48:07 »

Уважаемый Vikttur! улучшенная версия,макроса Elena666 Macro3 и ранее высланный макрос-  макрос Baggy777 решает ту проблему,что вы указали:

 
Код: (vb)
Sub Macro3()
    Dim LastRow1 As Long, LastRow2 As Long, Rng1 As Range, Rng2 As Range
    LastRow1 = Cells(Rows.Count, 1).End(xlUp).Row
    Set Rng1 = Sheets("Лист2").Range(Cells(LastRow1, 1), Cells(LastRow1, 4))
    LastRow2 = Cells(Rows.Count, 9).End(xlUp).Row
    Set Rng2 = Sheets("Лист2").Range(Cells(LastRow2, 9), Cells(LastRow2, 13))
    For i = 1 To 4
    If Rng1(i) <> Rng2(i) Then
    Rng1(i).Interior.ColorIndex = 3
    Cells(LastRow1, 6).Value = "Не верно"
    Exit Sub
    End If
    If Rng1(i) = Rng2(i) Then
    m = m + 1
    If m = 4 Then
    Cells(LastRow1, 6).Value = "Верно"
    End If
    End If
    Next i
End Sub
Записан
Elena666
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 87


Просмотр профиля
« Ответ #16 : 07.07.2015, 09:29:42 »

Спасибо огромнейшее sv2015, и остальные участники. Все заработало
Записан
Страниц: 1 [2]  Все   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru