EXCEL VBA 判断是否有重复内容

发布网友 发布时间：2022-04-25 16:54

我来回答

共4个回答

热心网友 时间：2023-10-20 14:00

这个应该用不上VBA吧。给你一个经典数组公式
{=SUM(1/COUNTIF(K3:N12,K3:N12))}
可以用来计算区域内的数据项个数，再和单元格数量求下差就知道有没有重复项了。
一般来说，公式解决不了的问题才值得用VBA。excel内部公式的计算效率比执行VBA代码可高多了。

热心网友 时间：2023-10-20 14:01

Dim arr As Range
Dim rng As Range
Set arr = Range("K3:N12")
For Each rng In arr
    k = Application.CountIf(arr, rng)
    If k > 1 Then
        MsgBox "单元格 " & rng.Address & " 重复"
    End If
Next

热心网友 时间：2023-10-20 14:01

用字典，使用count，与原先的数组比较数量
假如你是多单元格作为条件进行比较，先用join把该区域连接成一个一列的二维数组，然后使用字典，item进行计数。只要存在item超过1的，就表示存在重复值。

热心网友 时间：2023-10-20 14:02

用循环语句判断