是kenny吧？？哈哈 我allen 我回去试了下 可以 把分给我哦！！！
Private Sub CommandButton1_Click()

Dim j As Integer
Dim m As Integer
Dim i As Integer

j = 1
m = 2

For i = 1 To 20

  For j = i + 1 To 20

  If Sheet1.Cells(i, 3).Text = Sheet1.Cells(j, 3).Text Then
   
  Cells(j, 3).Interior.ColorIndex = m + 1
  Cells(i, 3).Interior.ColorIndex = m + 1
    
    
  End If
  Next j
   

  If Sheet1.Cells(i, 3).Text = "" Then
  GoTo mex
  End If
    
  m = m + 1
    
Next i
mex:
End Sub

上面错了 
这个
Private Sub CommandButton1_Click()

Dim j As Integer
Dim m As Integer
Dim i As Integer

j = 1
m = 2

For i = 1 To 20

  For j =  1 To 20

  If Sheet1.Cells(i, 3).Text = Sheet1.Cells(j, 3).Text Then
   
  Cells(j, 3).Interior.ColorIndex = m + 1
  Cells(i, 3).Interior.ColorIndex = m + 1
    
    
  End If
  Next j
   

  If Sheet1.Cells(i, 3).Text = "" Then
  GoTo mex
  End If
    
  m = m + 1
    
Next i
mex:
End Sub

楼上的太复杂了。

直接用条件格式就行了。

QQ群 48866293 OFFICE应用挖掘  
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》