按照ID号在Excel中查找唯一值
创始人
2024-08-24 06:00:48
0

在Excel中查找唯一值,可以使用VBA编写一个自定义函数来实现。以下是一个示例代码:

Function FindUniqueValuesByID(id As String, rangeToSearch As Range) As Variant
    Dim cell As Range
    Dim uniqueValues As Collection
    Dim value As Variant
    
    Set uniqueValues = New Collection
    
    ' 遍历指定范围中的每个单元格
    For Each cell In rangeToSearch
        ' 检查单元格的ID是否与给定的ID相匹配
        If cell.Value = id Then
            ' 将单元格的值添加到唯一值集合中
            On Error Resume Next
            uniqueValues.Add cell.Offset(0, 1).Value, CStr(cell.Offset(0, 1).Value)
            On Error GoTo 0
        End If
    Next cell
    
    ' 将唯一值集合中的值存储到一个数组中
    ReDim uniqueArray(1 To uniqueValues.Count)
    For i = 1 To uniqueValues.Count
        uniqueArray(i) = uniqueValues(i)
    Next i
    
    ' 返回唯一值数组
    FindUniqueValuesByID = uniqueArray
End Function

使用这个函数,你可以在Excel中输入类似于=FindUniqueValuesByID("001", A2:B10)的公式,其中"001"是要查找的ID,A2:B10是要搜索的范围。这个函数将返回一个包含唯一值的数组。

请注意,此代码假设ID在A列中,唯一值在B列中。你可以根据实际情况进行修改。

相关内容

热门资讯

9分钟曝光!钱柜手游有挂么(辅... 9分钟曝光!钱柜手游有挂么(辅助挂)一贯真的有挂(2025已更新)(哔哩哔哩)1)钱柜手游有挂么辅助...
4分钟实锤!云兰休闲有没有挂(... 4分钟实锤!云兰休闲有没有挂(辅助挂)原来真的有挂(2022已更新)(微博客户端)小薇(透视辅助)致...
1分钟分析!功夫川麻胜率低的原... 1分钟分析!功夫川麻胜率低的原因(辅助挂)一般真的有挂(2022已更新)(哔哩哔哩)功夫川麻胜率低的...
一分钟分析!中至小程序(透视)... 一分钟分析!中至小程序(透视)一般真的有挂(2020已更新)(知乎);运中至小程序辅助工具,进入游戏...
7分钟精通!山西扣点点挂神器(... 7分钟精通!山西扣点点挂神器(透视)一直真的有挂(2020已更新)(小红书)1、打开软件启动之后找到...
十分钟精通!心悦麻将亲友圈有挂... 十分钟精通!心悦麻将亲友圈有挂吗(透视)总是真的有挂(2021已更新)(小红书)1、进入到心悦麻将亲...
5分钟分享!青龙大厅辅助(辅助... 5分钟分享!青龙大厅辅助(辅助挂)总是真的有挂(2024已更新)(小红书);1、上手简单,内置详细流...
三分钟科研!微友陕西三代辅助(... 三分钟科研!微友陕西三代辅助(辅助挂)本来真的有挂(2022已更新)(微博客户端)1、微友陕西三代辅...
4分钟揭秘!手机大贰辅牌器购买... 4分钟揭秘!手机大贰辅牌器购买(透视)好像真的有挂(2025已更新)(知乎);1、下载好手机大贰辅牌...
2分钟了解!财神13张辅助有教... 2分钟了解!财神13张辅助有教程吗(透视)一般真的有挂(2023已更新)(哔哩哔哩)财神13张辅助有...