Sub 找出选定范围内不重复的值() On Error Resume Next Dim d As Object Set d = CreateObject("scripting.dictionary") For c_i = 1 To selection.Columns.Count For Each ce In selection.Columns(c_i).Cells 'd.Add ce.Value, 1 If ce <> "" Then 'D(ce.Val
1 查询重复值 ); 2 删除重复值 -- 创建临时表 ) ); -- 把重复数据放进临时表 INSERT Hb_Student_a SELECT id,studentNumber FROM Hb_Student ) ); -- 删除重复数据 DELETE a FROM Hb_Student AS a JOIN Hb_Student_a AS b ON a.id=b.id WHERE a.id=b.id ;
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