Сравнить листы Exel

[Nikiforov_Alex]

Доброго времени суток!
Задача в следующем:
В книге имеется 2 листа, где данные (числа) в 3 столбца начинаются с A1 и могутбыть закончены С200. На этих листах данные различаются, но необходимо найти количество совпадений. Возможно ли написать макрос который например на третьем листе будет выводить следующее: "количество совпадений - Х" и "количество строк Лист1 - Y, Лист2 - Y".
Конечно вопрос еще такого плана, возмжно ли это провернуть для различного количества листов в книге?

[EugeneS]

да, это возможно

[Nikiforov_Alex]

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

да, это возможно

Можно поподробней? Очень нужно к пятнице сделать...

[SAS888]

Можно поподробней?

Вы себе задайте этот вопрос.
1. Давайте файл с исходными данными. будет быстрый ответ.
2.

...данные (числа) в 3 столбца начинаются с A1...

Такого быть не может. Уточните.
3.

"количество совпадений - Х" и "количество строк Лист1 - Y, Лист2 - Y".

Требуется вывести количество уникальных (неповторяющихся) значений в столбце? Или всех? Значения в столбце листа могут повторяться?

[Nikiforov_Alex]

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

Давайте файл с исходными данными.

Прилепил, но количество строк может быть до 200, столбцов всегда 3.

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

Требуется вывести количество уникальных (неповторяющихся) значений в столбце? Или всех? Значения в столбце листа могут повторяться?

Требуется вывести сообщение о количестве совпадений. Каждая ячейка первого листа сверяется с соответствующей второго листа. (например А7 сверяется только с А7) значения в столбце могуть повторяться.

Задача состоит в проверке контрольных работ, т. е. значения копируются из двух или более кр на листы и сверяются на количество совпадений в них, пустые ячейки не сравниваются. Для начала было бы неплохо для двух листов провернуть.
файл

[0mega]

не совсем понятно как должны сравниваться листы...
ячейка А7 должна сравниваться с одноименной на другом листе - и это будет совпадание ? или совпадением считается когда все три ячейки (А12;В12;С12 ) равны этим же ячейкам на другом листе ?
разукрасьте ячейки в разные цвета и от руки нарисуйте желаемый результат

[Nikiforov_Alex]

Сообщение от 0mega

не совсем понятно как должны сравниваться листы...

Сравнение не по строкам, а по ячейкам. Не очень понимаю чего непонятного... Если число в ячейке совпадает с числом в аналогичной ей ячейке на другом листе то это +1 к общему числу совпадений. Так же не понимаю зачем что то закрашивать. Это нужно для проверки контрольных. Копируется 3 столбца из одной и 3 из другой, запускается макрос который ищет число вовпадений. Помогите плиз.

[0mega]

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

Не очень понимаю чего непонятного...

Оригинальное выражение ! +5 баллов

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

Так же не понимаю зачем что то закрашивать.

Закрашивать надо для того, чтобы другие могли понять то, что тебе не понятно почему это не понятно нам
В предложенном варианте допускается возможность заполнения столбиков А, В, С на 250 строчек (1-250)
Вашу таблицу немного подкорректировал (в предлагаемом Вами варианте не было ни одного совпадения)
P.S.
В следующий раз не надо выносить свой файл на "narod"
Здесь мало найдется желающих угадывать контрольное число для того чтоб дать ответ

[doober]

Sub Count_Control()
Dim L1, L2
L1 = Sheets("Лист1").UsedRange
L2 = Sheets("Лист2").UsedRange
Dim shet As Integer
Dim stroka As Integer, shet1 As Integer
shet = 0: stroka = 0
For n = 1 To UBound(L1)
On Error Resume Next
shet1 = 0
If L1(n, 1) <> "" Then
If L1(n, 1) = L2(n, 1) Then
shet = shet + 1: shet1 = shet1 + 1
End If: End If
If L1(n, 2) <> "" Then
If L1(n, 2) = L2(n, 2) Then
shet = shet + 1: shet1 = shet1 + 1
End If: End If
If L1(n, 3) <> "" Then
If L1(n, 3) = L2(n, 3) Then
shet = shet + 1: shet1 = shet1 + 1
End If: End If
If shet1 = 3 Then stroka = stroka + 1
Next
Sheets("Лист3").Cells(1, 1) = "Всего совпало ячеек"
Sheets("Лист3").Cells(2, 1) = "Всего совпало строк"
Sheets("Лист3").Cells(1, 2) = shet
Sheets("Лист3").Cells(2, 2) = stroka

End Sub