4 столбец из "книги 1" сравнить с 4-м столбцом из "книги 2". Ячейки с одинаковыми значениями закрасить цветом в обоих книгах
Повлияет ли то что во второй книге числа в формате "текст" ?
Код :
[vba]Код
Sub Sravnenie()
Dim ACell As Range
Dim BCell As Range
For Each ACell In Workbooks("Книга 1").Worksheets("1"). _
Range("D1", Cells(Rows.Count, 4).End(xlUp))
For Each BCell In Workbooks("Книга 2").Worksheets("1"). _
Range("D2", Cells(Rows.Count, 4).End(xlUp))
If BCell.Value = ACell.Value Then
BCell.Interior.ThemeColor = xlThemeColorLight1
ACell.Interior.ThemeColor = xlThemeColorLight1
End If
Next
Next
End Sub
[/vba]
он не хочет работать у меня