基于客户名称与发票编号多条件删除Sheet1行的VBA代码修正求助

看起来你已经离正确结果很近了，只是原代码里有两个关键问题没处理好——一是匹配的列搞错了，二是没加上客户名称一致这个核心条件。咱们一步步来修正：

你的需求回顾 #

只删除Sheet1中「和Sheet2当前客户名称相同，但发票编号不在Sheet2该客户的发票列表里」的行，不会误删其他客户的相关数据。

原代码的问题分析 #

• 匹配逻辑错误：原代码用Sheet1的发票号（D列）去匹配Sheet2的A列（客户名），完全对应错了列，应该匹配Sheet2的D列（发票号）
• 缺少客户名称校验：没有先判断Sheet1当前行的客户名是否和Sheet2的唯一客户名一致，导致会误删所有客户的不匹配发票行

修正后的VBA代码 #

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim ws1 As Worksheet, ws2 As Worksheet
Dim x As Long, lastRow1 As Long, lastRow2 As Long
Dim targetCustomer As String

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")

' 获取Sheet2里的唯一客户名称（假设表头在第1行，客户名从A2开始，可根据实际调整）
targetCustomer = ws2.Cells(2, "A").Value
' 用客户名列（A列）确定Sheet1的最后一行，比用发票列更准确
lastRow1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row
' 获取Sheet2发票列的最后一行，缩小匹配范围提升效率
lastRow2 = ws2.Cells(Rows.Count, "D").End(xlUp).Row

' 从下往上遍历，避免删除行后索引错乱
For x = lastRow1 To 6 Step -1
    ' 第一步：先判断当前行客户名是否和Sheet2的目标客户一致
    If ws1.Cells(x, "A").Value = targetCustomer Then
        ' 第二步：再检查该发票号是否不存在于Sheet2的发票列表中
        If IsError(Application.Match(ws1.Cells(x, "D").Value, ws2.Range("D2:D" & lastRow2), 0)) Then
            ws1.Rows(x).EntireRow.Delete
        End If
    End If
Next x

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

代码关键改动说明 #

1. 锁定目标客户：先把Sheet2的唯一客户名存入变量，确保后续只针对该客户处理
2. 双重条件判断：先筛选同客户的行，再校验发票号是否缺失，精准定位要删除的行
3. 优化匹配范围：用Sheet2发票列的实际最后一行限定匹配范围，比整列匹配更高效
4. 保留性能优化：继续使用ScreenUpdating和Calculation的设置，避免运行时卡顿

这样修改后，就只会针对Sheet2里的特定客户，删除其在Sheet1中不存在的发票行，不会误删其他客户的数据啦。

备注：内容来源于stack exchange，提问作者George Eastham