[ZeVSalt]

Есть решение с помощью макроса Exсel, но хотелось бы сделать унифицированный обработчик, (выбор файла, кол-во строк проверки, указание какие данные искать):

Sub ìàê1()
'
'
For i = 1 To 405 Step 1
j = "D" + LTrim(Str(i))
For c = 1 To 423 Step 1
j1 = "D" + LTrim(Str(c))
If Worksheets("èíâ 2009").Range(j).Value = Worksheets("ALL").Range(j1).Value Then
Worksheets("ALL").Range("H" + LTrim(Str(c))).Value = Worksheets("èíâ 2009").Range("H" + LTrim(Str(i))).Value
Sheets("èíâ 2009").Select
Worksheets("èíâ 2009").Range(j).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
Sheets("ALL").Select
Worksheets("ALL").Range(j1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
End If
Next c
Next i
End Sub

[ZeVSalt]

Так никто и не подскажет?