Перебрать и сравнить ячейки двух столбцов!

[kuklp]

Ну, раз уж делал...

[Hugo121]

Хорошо, тогда без формул и форматирования (ну разве что 2 нуля форматом колонки добавьте).
Замените код в моём примере на этот:

Option Explicit

Sub CopyCheck()
Dim sh1 As Object, sh2 As Object, sh3 As Object
Dim x As Range
Dim iLastRow  As Long, i As Long, ii As Long

Set sh1 = ThisWorkbook.Sheets(1)
Set sh2 = ThisWorkbook.Sheets(2)
Set sh3 = ThisWorkbook.Sheets(3)

iLastRow = sh2.Cells(Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False

For i = 1 To iLastRow
Set x = sh1.Columns(1).Find(sh2.Cells(i, 1).Value, , xlValues, xlWhole)
If Not x Is Nothing Then
ii = ii + 1
sh3.Cells(ii, 1) = sh1.Cells(x.Row, 1).Value
sh3.Cells(ii, 2) = sh1.Cells(x.Row, 2).Value
sh3.Cells(ii, 3) = sh2.Cells(i, 1).Value
sh3.Cells(ii, 4) = sh2.Cells(i, 2).Value
sh3.Cells(ii, 5) = Abs(sh2.Cells(i, 2).Value - sh1.Cells(x.Row, 2).Value)
            If sh2.Cells(i, 2).Value < sh1.Cells(x.Row, 2).Value Then sh3.Cells(ii, 5).Font.ColorIndex = 3
            If sh2.Cells(i, 2).Value > sh1.Cells(x.Row, 2).Value Then sh3.Cells(ii, 5).Font.ColorIndex = 10
            If sh2.Cells(i, 2).Value = sh1.Cells(x.Row, 2).Value Then sh3.Cells(ii, 5).Font.ColorIndex = 0
End If
Next

Application.ScreenUpdating = True
End Sub

[kuklp]

Игорь, объявление переменных...:-)

[Hugo121]

Добавил.
По скорости не оптимизировано. Если данных много, и оставить этот подход с поиском, то я бы сравнения и подсчёты делал на массивах, как и выгрузку на лист из массива. А покраску сделал форматом колонки, вручную или в коде.

[bima67]

Круто. Большое спасибо.
Еще вопрос. Как научится макросы писать? В инете поискал литературу, но похожей по простоте обучения, как к примеру на PHP, не нашел.

[R Dmitry]

Сообщение от bima67

Круто. Большое спасибо.
Еще вопрос. Как научится макросы писать? В инете поискал литературу, но похожей по простоте обучения, как к примеру на PHP, не нашел.

ну коль и меня вспоминали
а литературу тут посмотрите
http://www.planetaexcel.ru/forum.php?thread_id=8763

[chelovek4030]

Сообщение от SAS888

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".

Напомню это для задачи :"В графе 2 первой книги ячейка проходит по графе 1 второй книги и если находит соответствие то пишет в графу пять первой книги числовое значение из графы 2 второй книги."

А где взять код указанного макроса "Main"?

[SAS888]

А где взять код указанного макроса "Main"?

В программном модуле "Module1" в файле "Книга111.xls" из поста №4.