新手请教一个问题！！！！！！！！

yaoyao3654

我现在遇到了一个难题
我用excel编了一个表格
大致如下：
1     2     3     4      5     6
A     A    A     A      A
B     B    B             B     B
C           C     C     C     C
D    D    D     D             D
E    E    E     E      E     E


我要如何编一个程序将其中的E（A,B,C,D,E,每个只能出现5次,出现6次代表此数错误）显示出来
也就是说，能快速找出这个出现6次的字母。

tanhong

Sub strMsg()
   Dim iRow As Integer
   Dim I, J As Integer
   Dim RanVal As String
   Dim MCount As Integer
   
   iRow = [A65536].End(xlUp).Row
   
   For I = 2 To iRow
      '得到A列单元格值
     RanVal = Cells(I, 1).Value
     MCount = 0
     
     For J = 1 To 6
     
        '判断单元格值是否相同,相同则计数
        If RanVal = Cells(I, J).Value Then
           MCount = MCount + 1
         '修改单元格值
        End If
     Next J
     
    '判断计数是否等6,并显示错误字符
     If MCount = 6 Then
        MsgBox RanVal
     End If
   Next I
End Sub

yaoyao3654

[:50] 非常感谢