VBA在低版本Excel中创建unique函数的方法

UNIQUE函数通常用来返回列表或范围中的一系列唯一值,也就是过滤掉重复值。我们可以利用 UNIQUE 函数 与 FILTER 函数的组合进行深度筛选,但在Excel2021以上版本才会提供该函数,在低版本的Excel中我们可以使用VBA创建一个自定义函数来模仿高版本Excel的UNIQUE函数的功能。以下是一个简单的VBA函数,它接受一个范围作为参数,返回一个删除了重复值后的数组。

复制代码
Option Explicit
Function mUnique(rng As Range) As Variant
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    Dim cell As Range
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        If Not dict.Exists(cell.Value) And cell.Value <> "" Then
            dict.Add cell.Value, Nothing
        End If
    Next cell
    
    ' 将字典键(唯一值)存储到数组中
    mUnique = dict.Keys
End Function

要使用这个函数,你可以在Excel的VBA编辑器中插入这段代码(通过按下Alt + F11),然后在Excel表中像使用任何其他函数一样使用它。例如,如果你有一个名为"MyRange"的单元格范围,包含了一些可能的重复值,你可以在另一个单元格中使用这样的公式"=mUnique(MyRange)",这将返回一个下一行并且列数与原范围相同的区域,其中包含了删除重复项后的值。

由于低版本Excel不支持自动输出数组,所以如果要输出数组,不能直接在一个单元格中输入公式,而应该同时选中多个单元格(水平方向),然后再输入公式并按"Ctrl+Shift+Enter"三键结束,如果不确定数组的值有多少个,可以多选一些单元格,此时可能会输出一部分错误值的单元格,因为数组不支持部分删除,所以要删除错误值必须将所选的数组范围全部清除,然后再按正确的个数来重新选择使用公式的范围,并按照上面的步骤重新输入公式。

如果要将水平数组变成垂直数组,可以在公式前面加上转置函数transpose,选择输入公式的范围就要按垂直方向选,其他操作方法不变。

相关推荐
Goona_6 小时前
拒绝SQL恐惧:用Python+pyqt打造任意Excel数据库查询系统
数据库·python·sql·excel·pyqt
忘忧记6 小时前
excel删除重复项场景
excel
UrbanJazzerati9 小时前
Excel 神器 COUNTIFS 函数详解:多条件计数实战
excel
想学习java初学者1 天前
SpringBoot整合Fastexcel/EasyExcel导出Excel导出单个图片
excel
LAM LAB1 天前
【WPS】office邮件合并,怎么将数据源excel中的下一条拼接在文档中的下一个位置
excel·wps
SEO-狼术1 天前
Document Solutions for Excel, .NET
excel
Access开发易登软件2 天前
Access开发一键删除Excel指定工作表
服务器·前端·后端·excel·vba·access·access开发
Saggitarxm3 天前
Golang实现 - 实现只有表头的 Excel 模板,并在指定列添加了下拉框功能。生成的 Excel 文件在打开时,指定列的单元格会显示下拉选项
excel·下拉框选项序列·生成excel模板·下拉框选项
pk_xz1234563 天前
SAP全自动化工具开发:Excel自动上传与邮件通知系统
运维·人工智能·windows·深度学习·分类·自动化·excel
俊昭喜喜里4 天前
Excel——设置打印的区域
excel