利用VBA寻找重复选项.docVIP

. . 一、函数 1、将公式 =IF(ISERROR(VLOOKUP(B2,B$1:B1,1,0)),,重复) 在数据区域后空白列第二行，光标对准右下角成“+”状时将公式拖（或双击）下去，效果如图： 2、=COUNTIF(A:A,A1)，大于1 的重复。 二、VBA 找出一列或一行中没有的重新列出来，用全部的去循环对比需要排除的。 Sub 测试() Dim rng As Range, rngs As Range, k%, a, b 定义数据类型：设置对range单元格的引用，和定义K为整形变量，a,b为变体变量。 For Each rng In [a2:a6] for each外循环的范围 a = rng.Value For Each rngs In [b2:b4] for each内循环的范围 b = rngs.Value If rng = rngs Then GoTo 100 跳出外循环 End If Next rngs k = k + 1 Cells(k + 1, c) = rng 把没等的内容复制到新的一列中 100: Next rng End Sub 找出重复的并列出次数： Sub 统计()y1 = 1 开始列为A列（在EXCEL中，A列的列