比较与主列表时,突出显示缺少的独特配对 - Excel
创始人
2024-12-15 15:00:21
0

在Excel中,可以使用VBA编写代码来比较两个主列表,并突出显示其中缺少的独特配对。下面是一个示例代码:

Sub CompareLists()
    Dim ws As Worksheet
    Dim mainList As Range, compareList As Range
    Dim cell As Range
    Dim uniquePairs As Collection
    Dim pair As Variant
    
    ' 设置工作表和列表范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set mainList = ws.Range("A2:A10")
    Set compareList = ws.Range("C2:C10")
    
    ' 创建一个集合用于存储独特配对
    Set uniquePairs = New Collection
    
    ' 遍历主列表
    For Each cell In mainList
        ' 检查当前值是否存在于比较列表中
        If WorksheetFunction.CountIf(compareList, cell.Value) = 0 Then
            ' 如果不存在,将当前值和配对值添加到集合中
            uniquePairs.Add Array(cell.Value, cell.Offset(0, 1).Value)
        End If
    Next cell
    
    ' 遍历比较列表
    For Each cell In compareList
        ' 检查当前值是否存在于主列表中
        If WorksheetFunction.CountIf(mainList, cell.Value) = 0 Then
            ' 如果不存在,将当前值和配对值添加到集合中
            uniquePairs.Add Array(cell.Offset(0, -1).Value, cell.Value)
        End If
    Next cell
    
    ' 遍历独特配对集合并突出显示
    For Each pair In uniquePairs
        ' 查找主列表中对应的单元格
        Set cell = mainList.Find(pair(0), LookIn:=xlValues, LookAt:=xlWhole)
        If Not cell Is Nothing Then
            ' 如果找到,突出显示配对值单元格
            cell.Offset(0, 1).Interior.Color = RGB(255, 0, 0) ' 突出显示配对值单元格
        End If
    Next pair
End Sub

这个代码示例假设主列表的范围是"A2:A10",比较列表的范围是"C2:C10"。你可以根据实际情况修改这些范围。

运行这段代码后,它会遍历主列表和比较列表,将独特的配对存储在一个集合中。然后,它会遍历集合中的配对,并在主列表中突出显示对应的配对值单元格。

请注意,这个代码示例假设独特配对是基于主列表和比较列表中的两列数据进行比较的。如果你要比较多列数据,你需要相应地修改代码中的比较逻辑。

另外,这个示例中使用的是内置的WorksheetFunction.CountIf函数来检查值是否存在于列表中。如果你的列表非常大,这可能会导致性能问题。在这种情况下,你可以考虑使用其他方法来提高代码的执行效率。

相关内容

热门资讯

实测交流(德扑ai)外挂透明挂... 实测交流(德扑ai)外挂透明挂辅助神器(辅助挂)都是真的有挂(2022已更新)(百度贴吧);1、完成...
一分钟了解(wopoker)外... 一分钟了解(wopoker)外挂透明挂辅助软件(辅助挂)本来真的有挂(2020已更新)(微博热搜)1...
盘点一款(德州)外挂透明挂辅助... 盘点一款(德州)外挂透明挂辅助安装(透视辅助)一般真的有挂(2025已更新)(头条);是一种具有地方...
玩家实测(We辅poker助)... 玩家实测(We辅poker助)外挂透明挂辅助脚本(透视)就是真的有挂(2025已更新)(百度贴吧);...
推荐一款(cloudpoker... 推荐一款(cloudpoker云扑克)外挂透明挂辅助插件(透视辅助)就是真的有挂(2021已更新)(...
玩家必看教程(wpk德州)外挂... 玩家必看教程(wpk德州)外挂透明挂辅助软件(智能ai代打)都是真的有挂(2020已更新)(哔哩哔哩...
实测发现(wPK)外挂透明挂辅... 实测发现(wPK)外挂透明挂辅助app(软件透明挂)果然真的有挂(2025已更新)(头条)运辅助工具...
分享给玩家(众合推扑克)外挂透... 分享给玩家(众合推扑克)外挂透明挂辅助挂(智能ai代打)其实真的有挂(2024已更新)(今日头条)1...
实测揭晓(governorof... 实测揭晓(governorofpoker3)外挂透明挂辅助黑科技(辅助挂)其实真的有挂(2025已更...
关于(wpk德州)外挂透明挂辅... 关于(wpk德州)外挂透明挂辅助APP(透视辅助)都是真的有挂(2022已更新)(哔哩哔哩)1、首先...