Необычное Сравнение для привязки для экспорта в Access

[sonata]

По-возможности приняла к сведению замечания SergeySV
Спасибо!
Теперь возникла такая задачка, предварительно поломала голову,
признаюсь честно...Только, наверное, не очень сильно...
Есть 4 столбца в Excel, необходимо сравнить значение на идентичность двух столбцов,это просто, а сложность заключается в том, чтобы в 3-й столбец принадлеж-й сравниваемому столбцу занести значение из 4-го столбца, принадл-й второму.
Это обычная привязка данных,для послед-го экспорта в Access
Проще на примере.
Первые 2 столбца
МДМ х=4
С кем сравниваются
МДМ 4

Sub Сравнение2()

Set workSheet1 = Worksheets("Лист1")
Set workSheet2 = Worksheets("Лист1")
Set range1 = workSheet1.Range("C2:C2000")
Set range2 = workSheet2.Range("F2:F2000")
range1.Font.Color = 0
Dim curField As Object
Dim findedField As Object

For Each curField In range1
Set findedField = range2.Find(What:=curField.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not findedField Is Nothing Then
curField.Font.Color = vbMagenta
curField.Offset(, 1).Value = 1

'Нужно сделать равенство не 1 а значению найденного в столбце 2
End If
Next curField


Очень надо!
End Sub

[sonata]

Глупый был вопрос.....
Вот ответ...

Sub СРАВНЕНИЕ3()
For i = 1 To 863
For j = 1 To 853

If (Cells(i, 3).Value = Cells(j, 6).Value) Then
Cells(i, 4).Value = Cells(j, 5).Value
End If
Next j
Next i

End Sub