Ciao, magari nel frattempo hai già risolto...
Dim X As Integer
Dim Y As Integer
Dim Cognome As String = ""
'per ogni cognome verifico se nelle celle sottostanti c'è un cognome uguale
For X = 0 To grd.RowCount - 1
Cognome = grd.Item("Cognome", X).Value.ToString
For Y = X + 1 To grd.RowCount - 1
If Cognome = grd.Item("Cognome", Y).Value.ToString Then
'Il cognome sulla riga X è uguale a quello sulla riga Y
grd.Item("Cognome", Y).Style.ForeColor = Color.Red
grd.Item("Cognome", X).Style.ForeColor = Color.Red
End If
Next Y
Next X
Solo chi fa sbaglia :-)