сравнение столбца по двум книгам

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

NICK31

Дата: Вторник, 02.04.2013, 15:31 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 112

Репутация: 0 ±

Замечаний: 0% ±

подскажите пожалуйста! есть файл с названием ALL, он исходный и содержит в столбце А данные! есть файл с названием FM!он тоже содержит данные в столбце А..не могу исправить, чтобы данные сравнивались не по совпадению строк и выделялись, как у меня сейчас, а чтобы сравнивалось само значение! например, если встречается в первом файле ALL число 55 и во втором FM оно тоже есть, то выделилось бы и в ALL и в FM не важно на какой строке и сколько раз встречается

К сообщению приложен файл: Poisk.rar (13.1 Kb)

Ответить

AlexM

Дата: Вторник, 02.04.2013, 16:27 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Код в файле All
[vba]

Код

Sub Main()
Dim i As Long, j As Long
Application.ScreenUpdating = False
     Set All = Workbooks("all.xls").Sheets(1)
     Set FM = Workbooks("FM.xls").Sheets(1)
         For i = 1 To All.Cells(Rows.Count, "A").End(xlUp).Row
             If All.Cells(i, "A") <> "" Then
                 For j = 1 To FM.Cells(Rows.Count, "A").End(xlUp).Row
                     If All.Cells(i, "A") = FM.Cells(j, "A") Then
                     All.Cells(i, "A").Interior.ColorIndex = 6
                     FM.Cells(j, "A").Interior.ColorIndex = 6
                     End If
                 Next j
             End If
         Next i
Application.ScreenUpdating = True
End Sub

[/vba]