关于EXECEL的问题

1. 先将你的表格按照 主条件＝电话号码，次条件＝投票时间排序，保证同一个号码的投票，按照时间先后顺序排列。
2. 在Excel里面建立一个宏，
宏程序如下（已经过调试）
Sub select20()
'假设投票 电话号码在A列 投票时间在B列 选手编号在C列
'假设投票的数据从第2列到200列
'假设原始数据在Excel文件的sheet1上，

Dim i As Integer '循环所有的投票行的变量
Dim j As Integer '统计20票，超过的话，j清零
Dim phoneNumber As String '临时存储投票电话号码的变量

i = 2
j = 1
phoneNumber = Sheet1.Cells(i, 1).Value

Do While i <= 200'修改200为你的表格的数据行最后一行所在的Excle行数
If phoneNumber = Sheet1.Cells(i, 1).Value Then
If j <= 20 Then
j = j + 1
Sheet1.Cells(i, 4).Value = "有效"
i = i + 1
Else
i = i + 1
End If
Else
phoneNumber = Sheet1.Cells(i, 1)
j = 1
End If
Loop
End Sub

3