VBA表格重复项处理异常：覆盖重复值时新增重复行

问题原因分析 #

• 查找逻辑完全反向：你当前代码是在WADY工作表的B21单元格里，查找DATA WADY工作表B列的每行值，这和需求的“检查DATA WADY是否存在输入名称”完全相反，导致判断逻辑混乱。
• 循环触发多次新增：循环从第2行遍历到DATA WADY的最后一行，只要某一行的B列值和WADY!B21不匹配，就会执行新增行操作。即使已经找到重复项并完成覆盖，循环后续的不匹配行仍会触发新增，最终导致重复行出现。

修正后的代码 #

Sub ZGLOS()
    Dim dataWs As Worksheet
    Dim wadyWs As Worksheet
    Dim lastRow As Long
    Dim searchRange As Range
    Dim foundCell As Range
    Dim inputName As String
    Dim inputNumber As Variant
    
    ' 绑定工作表对象
    Set dataWs = ThisWorkbook.Sheets("DATA WADY")
    Set wadyWs = ThisWorkbook.Sheets("WADY")
    
    ' 获取用户输入的名称和数字
    inputName = wadyWs.Range("B21").Value
    inputNumber = wadyWs.Range("E21").Value
    
    ' 获取DATA WADY中B列的最后一行行号
    lastRow = dataWs.Range("B" & dataWs.Rows.Count).End(xlUp).Row
    ' 定义要查找的范围：B列第2行到最后一行
    Set searchRange = dataWs.Range("B2:B" & lastRow)
    
    ' 在DATA WADY的B列查找输入的名称
    Set foundCell = searchRange.Find(What:=inputName, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        ' 找到重复项，覆盖对应C列的数字
        dataWs.Cells(foundCell.Row, "C").Value = inputNumber
    Else
        ' 无重复，在表格末尾新增行
        dataWs.Cells(lastRow + 1, "B").Value = inputName
        dataWs.Cells(lastRow + 1, "C").Value = inputNumber
    End If
    
    ' 可选：清空输入单元格，方便下次操作
    wadyWs.Range("B21,E21").ClearContents
End Sub

关键改动说明 #

• 纠正查找方向：改为在DATA WADY的B列范围内，查找用户输入的名称，符合需求逻辑。
• 移除冗余循环：用Find方法直接定位重复项，一次判断即可完成覆盖或新增操作，避免多次触发新增。
• 变量命名优化：避免使用name这类易与VBA关键字冲突的变量名，让代码可读性更强。
• 适配不同Excel版本：用dataWs.Rows.Count替代硬编码的行号，兼容不同版本的Excel行数限制。

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