VBA小功能集合-判断列内是否有重复值

1.判断列内是否有重复值：

Dim arrT As Range
    Dim rng As Range
    Set arrT = Range("A:A")'判读A列单元格
    For Each rng In arrT
        If rng = Empty Then'如果单元格为空就退出循环，否者循环65535次
            Exit For
        End If
        k = Application.CountIf(arrT, rng)’用CountIf函数扫描出重复值，跟excel的CountIF函数一样
        If k > 1 Then
            rng.Select
            MsgBox rng.Address & " has duplicate data.'输出提示信息，程序结束
            End
        End If
    Next

2.得到指定范围内非空单元格的数量

Dim n As Long
n = Application.WorksheetFunction.CountA(Range("A:A")) 'Count of non-empty data in colum A

3.清空指定sheet页