VBA开发需求：识别并提示A列未映射到B列的项目

以下是实现需求的VBA代码，兼顾效率和可读性：

Sub FindUnmappedItems()
    Dim ws As Worksheet
    Dim bDict As Object
    Dim lastRowA As Long, lastRowB As Long
    Dim i As Long
    Dim unmappedCount As Long
    Dim unmappedItems As String
    
    ' 设置目标工作表（可根据实际修改，比如Sheet1）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 创建字典存储B列值
    Set bDict = CreateObject("Scripting.Dictionary")
    bDict.CompareMode = vbTextCompare ' 不区分大小写，如需区分可删除此行
    
    ' 获取B列最后一行行号
    lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' 遍历B列，将值存入字典
    For i = 1 To lastRowB
        If Trim(ws.Cells(i, "B").Value) <> "" Then ' 跳过空单元格
            If Not bDict.Exists(Trim(ws.Cells(i, "B").Value)) Then
                bDict.Add Trim(ws.Cells(i, "B").Value), 1
            End If
        End If
    Next i
    
    ' 获取A列最后一行行号
    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    unmappedCount = 0
    unmappedItems = ""
    
    ' 遍历A列，检查是否在B列字典中
    For i = 1 To lastRowA
        currentVal = Trim(ws.Cells(i, "A").Value)
        If currentVal <> "" Then
            If Not bDict.Exists(currentVal) Then
                unmappedCount = unmappedCount + 1
                unmappedItems = unmappedItems & currentVal & vbCrLf
            End If
        End If
    Next i
    
    ' 展示结果
    If unmappedCount > 0 Then
        MsgBox "A列中未映射到B列的项目共 " & unmappedCount & " 个：" & vbCrLf & vbCrLf & unmappedItems, vbInformation, "统计结果"
        ' 可选：将结果写入C列
        ws.Range("C1").Value = "未映射项目"
        ws.Range("C2").Resize(unmappedCount, 1).Value = WorksheetFunction.Transpose(Split(unmappedItems, vbCrLf))
    Else
        MsgBox "A列所有项目均已映射到B列", vbInformation, "统计结果"
    End If
    
    ' 释放对象
    Set bDict = Nothing
    Set ws = Nothing
End Sub

代码说明 #

• 字典的使用：用Scripting.Dictionary存储B列的非空值，利用字典的快速查找特性提升效率，避免逐行对比的低性能问题。
• 空值处理：跳过A、B列的空单元格，避免统计无效值。
• 大小写设置：vbTextCompare设置为不区分大小写匹配，若需要严格区分大小写，删除该行即可。
• 结果展示：通过消息框直观展示统计数量和具体项目，同时提供可选的写入C列的功能，方便后续查看。

使用方法 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 插入一个新模块：右键点击项目窗口中的工作簿名称 → 插入 → 模块。
3. 将上述代码粘贴到模块中。
4. 修改代码中的Sheet1为你的目标工作表名称。
5. 按下F5运行宏，或回到Excel界面通过“开发工具”→“宏”执行该程序。

内容的提问来源于stack exchange，提问作者Enrique Ferolino