excel的vba 代码

看你数据还比较多，用数组给你写一段，这样运行速度会快些。而且你数据有增加或减少也一样通用。不管你是几行数据。
也不知道是否合你意，最好把你的表发过来看下是什么结构。
Sub 是否有重复中奖()
Dim i&, R&, g&, x&
Dim arr, arr1()
With Sheets(sheet1)
R = .Range(B65536).End(xlUp).Row
arr = .Range(B2:C & R).Value
For i = 1 To UBound(arr) - 1
If arr(i, 1) = arr(i + 1, 1) And arr(i, 2) = arr(i + 1, 2) Then
g = g + 1
ReDim Preserve arr1(1 To 2, 1 To g)
For x = 1 To 2
arr1(x, g) = arr(i, x)
Next x
End If
Next i
.Range(E2:F & .Range(E65536).End(xlUp).Row).ClearContents
.Range(E2).Resize(UBound(arr1, 2), 2) = Application.Transpose(arr1)
End With
MsgBox 重复中奖的号码个数为: & g
End Sub这里指定为sheet1表，你表名不同可直接修改成你的存放数据的工作表名