пропозиції роботи
Bertor G. brak
Temat: szybki mistrz exela - heeeelllpl
A może by spróbować tak. U mnie sprawdza się wyśmienicie.Sub test()
Dim x As Variant, y As Variant
Dim zakres1 As Range, zakres2 As Range
Set zakres1 = Range(Range("A1"), Range("A1").End(xlDown))
Set zakres2 = Range(Range("B1"), Range("B1").End(xlDown))
For Each x In zakres1
For Each y In zakres2
If x = y Then
x.ClearContents
End If
Next y
Next x
End Sub
