Страница 1 из 2
Сравнить два списка
Добавлено: 31 окт 2008, 19:32
Soroka40
Всем привет.
Есть два листа Exel, нужно сравнить в них A1 и удалить из листа1 все совпадающие ячейки с листом2.
Вопрос, возможно, глупый, но вы простите блондинку и помогите....
спасибо!
Re: Сравнить два списка
Добавлено: 31 окт 2008, 22:18
AlexZZZ
Ваш вопрос не точно сформулирован. Если надо удалить все совпадающие значения из ячеек, то сравнивать нужно не только по A1? Или сравниваются только А1 на лист2 и несколько ячеек на лист1? И в каком диапазоне?
Re: Сравнить два списка
Добавлено: 01 ноя 2008, 12:23
Soroka40
AlexZZZ писал(а):Ваш вопрос не точно сформулирован. Если надо удалить все совпадающие значения из ячеек, то сравнивать нужно не только по A1? Или сравниваются только А1 на лист2 и несколько ячеек на лист1? И в каком диапазоне?
Надо удалить все строки, в которых значения А1 совпадают. Сравнивать, таким образом, нужно только по А1.
Спасибо.
Re: Сравнить два списка
Добавлено: 01 ноя 2008, 15:50
Naeel Maqsudov
Soroka40, воспользуйтесь автофильтрами или расширенным фильтром.
Они позволяют скрывать или получать отфильтрованный список на отдельном листе соответственно.
Меню
Данные/Фильтр/Автофиоттр
Данные/Фильтр/Расширенный фильтр...
Re: Сравнить два списка
Добавлено: 01 ноя 2008, 17:36
Teslenko_EA
Здравствуйте Soroka40.
"...удалить все строки, в которых значения А1 совпадают..."
Перефразированный вопрос - "в которых значения совпадают с А1" можно принять, иначе не верно. Адрес "А1" пренадлежит первой строке листа "...в которых значения А1 совпадают...", так сколько листов в документе? Совпадающие значения могут быть расположены в любом месте листа или в определенном диапазоне?
Евгений.
Re: Сравнить два списка
Добавлено: 01 ноя 2008, 22:49
AlexZZZ
Soroka40, вот макрос, сравнивающий ячейки A1 на листах 1 и 2 и удаляющий при совпадении первую строку на листе 1:
Код: Выделить всё
Sub SravnenieA1()
If Worksheets("Лист1").Cells(1, 1).Value = Worksheets("Лист2").Cells(1, 1).Value Then _
Worksheets("Лист1").Rows(1).Delete
End Sub
Или сравнивать нужно всё же не только по A1, а ячейки по первому столбцу в некотором диапазоне? Если да, то определите диапазон, напишем Вам нужный макрос. Пока до сих пор непонятно, что же конкретно Вам нужно.
Re: Сравнить два списка
Добавлено: 29 май 2009, 23:01
Jainy_90
"....
Код:
Sub SravnenieA1()
If Worksheets("Лист1").Cells(1, 1).Value = Worksheets("Лист2").Cells(1, 1).Value Then _
Worksheets("Лист1").Rows(1).Delete
End Sub
Или сравнивать нужно всё же не только по A1, а ячейки по первому столбцу в некотором диапазоне? Если да, то определите диапазон, напишем Вам нужный макрос. Пока до сих пор непонятно, что же конкретно Вам нужно...."
помогите пожалуйста!!! вот мне надо сравнить диапазон ("C2:Z41") на Листе 1 и диапазон ("C2:Z41") на Листе 2...и там где они не равны, выделить красным цветом
Re: Сравнить два списка
Добавлено: 30 май 2009, 13:53
AlexZZZ
" писал(а):помогите пожалуйста!!! вот мне надо сравнить диапазон ("C2:Z41") на Листе 1 и диапазон ("C2:Z41") на Листе 2...и там где они не равны, выделить красным цветом
Если адреса диапазонов совпадают, а выделять нужно несовпадающие ячейки на Лист2, тогда так:
Код: Выделить всё
Dim MyRange As Range, oCell As Range, sCell As Range
Set MyRange = Worksheets("Лист1").Range("C2:Z41")
For Each oCell In MyRange
Set sCell = Worksheets("Лист2").Cells(oCell.Row, oCell.Column)
If oCell.Value <> sCell.Value Then sCell.Interior.Color = 255
Next
Re: Сравнить два списка
Добавлено: 30 май 2009, 16:36
Jainy_90
Re: Сравнить два списка
Добавлено: 31 май 2009, 17:25
AlexZZZ
Рад был помочь.
