|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2011, 09:45 | #1 |
Пользователь
Регистрация: 12.10.2010
Сообщений: 66
|
Сравнение столбцов в разных книгах
помогите пожалуйста сделать сравнение по двум столбцам. Сейчас я имею 2 книги 2011.xls и 2010.xls. Мне необходимо сравнить все листы в одной книге со второй книгой по одноименным листам. Есть вариант сравнения по одному столбцу
Sub Main() Dim i As Long, x As Range, Fst As String Application.ScreenUpdating = False Workbooks("2011.xls").Sheets(1).Act ivate With Workbooks("2010.xls").Sheets(1) Columns("A").Interior.ColorIndex = xlNone .Columns("A").Interior.ColorIndex = xlNone For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Set x = .Columns("A").Find(what:=Cells(i, "A"), LookAt:=xlWhole) If Not x Is Nothing Then Cells(i, "A").Interior.ColorIndex = 6 Fst = x.Address Do .Cells(x.Row, "A").Interior.ColorIndex = 6 Set x = .Columns("A").FindNext(x) Loop While Fst <> x.Address End If Next End With End Sub Как бы добавить еще дополнительно чтобы в книге 2011.xls сравнивалось с книгой 2010.xls не только по столбцу A, а еще плюс G , а в книге 2010.xls A и F. т.е. если по строке значения по этим двум столбцам равны, то тогда закрашивать. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сравнение двух столбцов в разных книгах | LAnLorD | Microsoft Office Excel | 132 | 17.05.2022 08:16 |
Транспонирование множества данных из разных книгах или из разных листов на 1 лист посредством макроса | Тантана | Microsoft Office Excel | 6 | 18.12.2014 13:04 |
Сверка столбцов в разных файлах | Антон Олегович | Microsoft Office Excel | 10 | 03.09.2010 11:38 |
Сравнение столбцов в Excel | Laa911 | Microsoft Office Excel | 61 | 21.08.2010 13:11 |
связывание ячеек в разных книгах | redfield | Microsoft Office Excel | 0 | 14.05.2010 22:29 |