求VBA开发指导：实现Excel条目查重并新增未存内容至指定列

嘿，我来帮你搞定这个需求！下面是一套完整的VBA方案，包含代码、详细解释和使用说明，正好适合你学习VBA的过程中理解逻辑～

实现思路 #

• 弹出输入框让你输入新条目，支持多次输入直到你选择取消
• 自动在指定的查重列（比如A列）里查找是否已有这个条目
• 如果没找到重复，就把这个条目追加到目标列（比如B列）的末尾
• 全程会给你弹窗提示结果，清晰知道每一步的操作反馈

完整VBA代码 #

Sub AddUniqueItem()
    Dim inputItem As String
    Dim checkRange As Range
    Dim foundCell As Range
    Dim targetLastRow As Long
    Dim checkCol As String, targetCol As String
    
    ' 自定义设置：这里可以修改查重列和目标列的列标
    checkCol = "A" ' 已存储值所在列
    targetCol = "B" ' 新增条目要添加到的列
    
    Do
        ' 获取用户输入的条目
        inputItem = InputBox("请输入要添加的条目：", "条目输入")
        
        ' 如果用户点击取消，退出循环
        If inputItem = "" Then
            MsgBox "操作已取消", vbInformation
            Exit Sub
        End If
        
        ' 设置查重范围：从该列第1行到最后一行有数据的单元格
        Set checkRange = ThisWorkbook.ActiveSheet.Range(checkCol & "1:" & checkCol & Cells(Rows.Count, checkCol).End(xlUp).Row)
        
        ' 在查重范围里查找输入的条目（完全匹配）
        Set foundCell = checkRange.Find(What:=inputItem, LookIn:=xlValues, LookAt:=xlWhole)
        
        If foundCell Is Nothing Then
            ' 没找到重复，找到目标列的最后一行
            targetLastRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, targetCol).End(xlUp).Row
            
            ' 如果目标列是空的，从第1行开始加；否则加在最后一行的下一行
            If targetLastRow = 1 And ThisWorkbook.ActiveSheet.Cells(1, targetCol).Value = "" Then
                ThisWorkbook.ActiveSheet.Cells(1, targetCol).Value = inputItem
            Else
                ThisWorkbook.ActiveSheet.Cells(targetLastRow + 1, targetCol).Value = inputItem
            End If
            
            MsgBox "条目「" & inputItem & "」已成功添加！", vbInformation
        Else
            ' 找到重复，提示用户
            MsgBox "条目「" & inputItem & "」已存在于查重列，无需重复添加！", vbExclamation
        End If
        
        ' 询问是否继续输入下一个条目
        If MsgBox("是否继续输入下一个条目？", vbYesNo + vbQuestion) = vbNo Then
            Exit Do
        End If
    Loop
End Sub

代码关键部分说明 #

• 自定义列设置：开头的checkCol和targetCol可以直接修改成你需要的列（比如改成"C"、"D"），不用动后面的核心逻辑
• 输入处理：用InputBox获取内容，同时判断用户取消输入的情况，避免报错
• 高效查重：用Range.Find方法比逐个单元格遍历更快，适合数据量较大的情况；LookAt:=xlWhole确保是完全匹配（比如不会把"苹果"和"苹果汁"当成重复）
• 目标列追加逻辑：自动判断目标列是否为空，避免出现空行或者覆盖已有数据
• 循环执行：通过Do...Loop实现多次输入，每次输入后询问是否继续，灵活可控

使用方法 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里，右键点击你的工作簿名称，选择「插入」→「模块」
3. 把上面的代码粘贴到新模块的代码窗口里
4. 按下F5运行代码，或者回到Excel界面，添加一个表单按钮，把这个宏绑定到按钮上（更方便日常使用）

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