在K1输入函数=COUNTIF(C:C,C1)并拖拽，（拖拽行数由c列的行数决定，c列多少行就拖拽多少行）
随着拖拽函数都依次向下移动一个单元格
结果要求为数值
Sub xx()
For i = 1 To [c65536].End(xlUp).Row
Cells(i, 11).Formula = "=countif(c[-8]:c[-8],rc[-8])"
Next
End Sub
Sub xx()
For i = 1 To [c65536].End(xlUp).Row
Cells(i, 11) = WorksheetFunction.CountIf(Range("c:c"), Cells(i, 3))
Next
End Sub
For i = 1 To [c65536].End(xlUp).Row
Cells(i, 11).Formula = "=countif(c[-8]:c[-8],rc[-8])"
Next
End Sub
Sub xx()
For i = 1 To [c65536].End(xlUp).Row
Cells(i, 11) = WorksheetFunction.CountIf(Range("c:c"), Cells(i, 3))
Next
End Sub
温馨提示：答案为网友推荐，仅供参考
