查找excel中不重复数据

更新时间:2023-07-31 19:09:16 阅读：评论：0

Sub GetDistinctData()
'定义一个遍历范围cell
Dim cell As Range, res
'定义Dictonary对象dataCollection红裤子配什么上衣
Set dataCollection = CreateObject("Scripting.Dictionary")
'遍历A1到A500所有单元格
For Each cell In Range("A1:A500")
'假如单元格值不为空且dataCollection中未收录，则添加
If cell <> "" And (Not dataCollection.Exists(cell.Value)) Then
dataCollection.Addcell.Value, CStr(cell.Value)
End If
Next
'从dataCollection中获取刚才过滤之后的数据
res = dataCollection.Items
'把数据不重复的写入B列
鼻孔外露

For i = 1 To dataCollection.Count
Cells(i, 2) = res(i - 1)
Next i
End Sub

不重复值的自定义函数方案

(转自网络）

提取不重复值的自定义函数方案，

Function MergerRepeat(Index As Integer, ParamArrayarglist() As Variant)

'---------------------------------------------
’

’

’功能：获得指定单元格区域或数组中的不重复集合或值
’参数说明：
’Index：整型，当值小于1时，函数返回一个集合；
’ 　大于1且小于不重复项的时，返回一个不重复的值
’ 　大于不重复项时，返回空。
’arglist()：可为单元格区域或数组常量。
'----------------------------------------------
Dim NotRepeat As Object, tStr As String 馅饼的做法大全
Set NotRepeat = CreateObject("Scripting.Dictionary")
For Each arg In arglist
For Each rRan In arg
If TypeName(rRan) = "Range" Then
If rRan.Value<> "" Then NotRepeat(rRan.Value) = 0
El
NotRepeat(rRan) = 0
End If
Next
生死一刻Next
If Index < 1 Then 运动团建
MergerRepeat = NotRepeat.keys
ElIf Index <= NotRepeat.Count Then
家庭账户arr = NotRepeat.keys
肉怎么炒MergerRepeat = arr(Index - 1)
El
MergerRepeat = ""
End If
End Function
下面用几个应用的实例，来说明该函数的应用。

1、返回A1：A10中不重复值的个数。

=COUNTA(MergerRepeat(0,A1:A10))

2、在B列从B1格开始列出A1:A10的不重复数值。

在B1格设定公式：

=MergerRepeat(ROW(),$A$1:$A$10)

并向下填充。

3、求多个区域（可以不连续）加数组的不重复个数。

=COUNTA(MergerRepeat(0,A1:A6,{"abc","Excel吧",1,""},C2:C6))做卡片

教你使用Excel数组公式

Excel中数组公式非常有用，尤其在不能使用工作表函数直接得到结果时，数组公式显得特别重要，它可建立产生多值或对一组值而不是单个值进行操作的公式。

输入数组公式首先必须选择用来存放结果的单元格区域（可以是一个单元格），在编辑栏输入公式，然后按Ctrl＋Shift＋Enter组合键锁定数组公式，Excel将在公式两边自动加上花括号“{}”。注意：不要自己键入花括号，否则，Excel认为输入的是一个正文标签。

选取数组公式所占有的全部区域先选中区域中任意一个单元格，然后按下Ctrl＋/键即可。

编辑或删除数组公式编辑数组公式时，须选取数组区域并且激活编辑栏，公式两边的花括号将消失，然后编辑公式，最后按Ctrl＋Shift＋Enter键。选取数组公式所占有的全部区域后，按Delete键即可删除数组公式。

数组常量的使用数组公式中还可使用数组常量，但必须自己键入花括号“{}”将数组常量括起来，并且用“，”和“；”分离元素。其中“，”分离不同列的值，“；”分离不同行的值。

使用不在工作表中的数组有时，公式仅占用一个单元格时也需要以数组的方式输入。其具体原则是：一个公式使用了数组，并且这个数组不在工作表上，就应该使用数组的方式输入这个公式。

下面介绍两个使用数组公式的例子。

1 有如图所示的工作表，需分别计算各商品的销售额，可利用数组公式来实现。

单元格F2中的公式为：{=SUM（IF（A2：A11=″商品1″，B2：B11＊C2：C11，0））}.这个数组公式创建了一个条件求和，若在A2：A11中出现值“商品1”，则数组公式将B2：B11和C2：C11中与其相对应的值相乘并累加，若是其他值则加零。同时，虽然数组B2：B11和C2：C11均在工作表中，但其相乘的数组B2：B11＊C2：C11不在工作表中，因此必须使用数组公式。

2 假设要将A1：A50区域中的所有数值舍入到2位小数位，然后对舍入的数值求和。很自然地就会想到使用公式：=ROUND（A1，2）＋ROUND（A2，2）＋…＋ROUND（A50，2）。

有没有更简捷的算法呢？有。因为数组ROUND（A1：A50，2）并不在工作表中，因此要使用数组的方式输入公式，即：{=SUM（ROUND（A1：A50，2））}.

本文发布于:2023-07-31 19:09:16，感谢您对本站的认可！

本文链接：https://www.wtabcd.cn/fanwen/fan/89/1103403.html

上一篇：剑桥国际少儿英语第一册文本kb1听力

下一篇：through的用法总结有哪些使用方法

标签：数组公式使用区域函数输入工作编辑

留言与评论（共有 0 条评论）