Sub 答案()
Dim y, r, arr1, arr2, C
i = 2
Set r = Range("h" & Rows.Count).End(xlUp)
j = r.Row
arr1 = Range("h2:h" & j)
arr2 = Range("i2:i" & j)
Do While Range("h" & i) <> ""
If arr1(i - 1, 1) = arr2(i - 1, 1) Then
C = C + 1
i = i + 1
End If
Loop
MsgBox C
End Sub
Dim y, r, arr1, arr2, C
i = 2
Set r = Range("h" & Rows.Count).End(xlUp)
j = r.Row
arr1 = Range("h2:h" & j)
arr2 = Range("i2:i" & j)
Do While Range("h" & i) <> ""
If arr1(i - 1, 1) = arr2(i - 1, 1) Then
C = C + 1
i = i + 1
End If
Loop
MsgBox C
End Sub
