DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub Compare_Columns()
With Range("C1:C" & Cells(Rows.Count, 1).End(3).Row)
.Columns(1).ClearContents
.Formula = "=IF(A1=B1,"""",FALSE)"
.Value = .Value
End With
End Sub