用Vba计算同列两个相邻单元格数值相同的下一个单元格的个数

Private Sub CommandButton1_Click()
Dim i,j As Integer
j = 0
For i = 1 To [a65536].End(xlUp).Row
If Range("a" & i) = Range("a" & i + 1) Then
j = j + 1
End If
Next
End Sub
这个是A列从第一个单元格到最后一个单元格
相邻单元格相等的个数.