Sub Cluster_Find() For i = 2 To 12
Temp = i
For h = i + 1 To 13
If Cells(h, 19).Value >= Cells(i, 19).Value Then
If Cells(h, 19).Value <= Cells(i, 22).Value Then
If Cells(h, 20).Value >= Cells(i, 23).Value Then
If Cells(h, 20).Value <= Cells(i, 24).Value Then
Cells(i, 25).Value = Temp
Cells(h, 25).Value = Temp
Else
End If
Else
If Cells(h, 21).Value >= Cells(i, 23).Value Then
If Cells(h, 21).Value <= Cells(i, 24).Value Then
Cells(i, 25).Value = Temp
Cells(h, 25).Value = Temp
Else
End If
Else
End If
End If
Else
End If
Else
End If
Next h
Next i
End Sub