在D1填日期
Sub tj()
Dim arr, i, k, l
k = Range("A65536").End(xlUp).Row
For i = 2 To k
If Cells(i, 1) = Cells(1, 4) And Application.CountIf(Range("B2:B" & k), Cells(i, 2)) > 1 Then
h = h + 1
End If
Next
Range("C2") = h
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。