标题: 新手请教一个问题！！！！！！！！ [打印本页] 作者: yaoyao3654 时间: 2008-5-30 09:15 标题: 新手请教一个问题！！！！！！！！ 我现在遇到了一个难题
我用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 时间: 2008-5-30 11:47
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