微信公众号原文

系统：Windows 7
软件：Excel 2010

问题

目前有一采购清单（A列），库存也有一堆物品（B列），现在需要采购库存中没有但在采购清单中的物品，其实就是C列=A列- B列，求两者的差集

清单

1.png

逻辑过程（字典方法）

1. 定义两个字典（d1，d2），字典d1的键存放A列数据，字典d2的键存放B列数据
2. 对字典d2的键进行循环，依次判断是否在字典d1中，若在，则移除字典d1中对应的键
3. 将字典d1的键输出到C列

代码

Sub test()
    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")
    
    Set sht = ThisWorkbook.Worksheets("示例")
    maxRowA = sht.Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To maxRowA Step 1
        x = sht.Cells(i, "A")
        d1(x) = ""
    Next i
    
    maxRowB = sht.Cells(Rows.Count, "B").End(xlUp).Row
    
    For i = 2 To maxRowB Step 1
        x = sht.Cells(i, "B")
        d2(x) = ""
    Next i
    
    For Each ky In d2.Keys
        If d1.Exists(ky) Then
            d1.Remove (ky)
        End If
    Next
    
    rowNum = 2
    For Each ky In d1.Keys
        sht.Cells(rowNum, "C") = ky
        rowNum = rowNum + 1
    Next
    
End Sub

代码截图

2.png

执行结果

3.png

部分代码解读

1. d1.Remove (ky) 移除字典中的键ky

以上为本次的学习内容，下回见

如发现有错误，欢迎留言指出

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

公众号底部二维码.jpg