如何用Excel統計壹註彩票號碼的重邊號。（重號：即與上期相同的號碼；邊號：上期號碼的相鄰號）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Dim endrow1 As Long, endrow2 As Long, i As Long, j As Long

endrow1 = [b65536].End(3).Row

endrow2 = [h65536].End(3).Row

For i = 2 To endrow2

For j = 2 To endrow1

If Cells(i, 8).Value & Cells(i, 9).Value & Cells(i, 10).Value & Cells(i, 11).Value _

& Cells(i, 12).Value = Cells(j, 2).Value & Cells(j, 3).Value & Cells(j, 4).Value _

& Cells(j, 5).Value & Cells(j, 6).Value Then

Cells(i, 13).Value = "已開"

GoTo line

Else

Cells(i, 13).Value = "未開"

End If

Next

line:

Next

End Sub

我是用宏代碼做的。

打開excel之後。按alt+F11,打開VBE 之後。按ctrl+r,打開工 程資源管理器。。妳的那個歷史號碼在sheet1就雙擊管理器的sheet1,在sheet2就雙擊管理器的sheet2。把我上面的代碼粘貼進去然後關掉就可以了。。。註意代碼復制完。。

代碼是完全按妳的表擺放的位置弄的，不需要改更代碼裏面的東西，直接放上去就行了

我看妳的號碼是從小到大的。我做的時候隨便亂寫的號碼。。沒有按從小到大排列，這個不影響