Sütunda seçilen hücreye eşit olan hücreler hariç diğer tüm hücreleri seçen VBA kodudur.
Option Explicit
Sub SutundaSecilenElemandanFarkliOlanElemanlariSec()
Dim hucre As Range
Set hucre = ActiveSheet.Columns("A").ColumnDifferences(Comparison:=ActiveSheet.Range("A8"))
hucre.Select
End Sub