VBA宏需求：校验新旧订单ID一致性并支持多新订单循环校验

我写了一个VBA宏，用来基于旧订单生成新订单。表格第一列标记“Old”（旧订单）或“New”（新订单），旧订单信息会被用来生成新订单。现在需要实现两个核心功能：

• 交叉校验：如果新旧订单ID不一致，直接终止宏
• 支持单个旧订单对应多个新订单的循环校验
  目前尝试的代码未实现这些需求。

示例表格 #

尝试的代码 #

intValueToFind = "Old"
       For a = 2 To Rows
        If Cells(a, 1).Value = intValueToFind Then
        Old_ID = Cells(a, 2).Value
        Else
        MsgBox ("Select an old order")
        Exit Sub
        End If
       Next a
        
intValueToFind = "New"
       For b = 2 To Rows
        If Cells(b, 1).Value = intValueToFind Then
        New_ID = Cells(b, 2).Value
        Else
        MsgBox ("Select a new order")
        Exit Sub
        End If

        If Old_ID = New_ID Then
          GoTo Create_order
        Else
          MsgBox ("The ID's don't match")
        Exit Sub
        End If
       Next b 
Create_order:

原代码问题 #

1. 第一个循环只要遇到非“Old”的行就直接报错退出，逻辑错误——应该先找到旧订单ID，而非中途终止
2. 第二个循环仅处理第一个“New”行就跳转，无法支持多个新订单的场景
3. 未实现批量校验新订单ID的逻辑

修正后的代码 #

Sub GenerateNewOrders()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim oldID As String
    Dim foundOld As Boolean
    Dim i As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 获取表格最后一行，避免无效遍历
    
    ' 定位旧订单ID
    foundOld = False
    For i = 2 To lastRow
        If UCase(ws.Cells(i, 1).Value) = "OLD" Then
            oldID = ws.Cells(i, 2).Value
            foundOld = True
            Exit For ' 若存在多个旧订单，可修改为收集ID到数组
        End If
    Next i
    
    If Not foundOld Then
        MsgBox "未找到标记为Old的订单", vbExclamation
        Exit Sub
    End If
    
    ' 遍历所有新订单，逐个校验并处理
    For i = 2 To lastRow
        If UCase(ws.Cells(i, 1).Value) = "NEW" Then
            ' 校验新旧订单ID
            If ws.Cells(i, 2).Value <> oldID Then
                MsgBox "新订单ID与旧订单不匹配，宏终止", vbCritical
                Exit Sub
            End If
            
            ' 此处写入生成新订单的业务逻辑
            ' 示例：将旧订单的reference复制到新订单
            ws.Cells(i, 3).Value = ws.Cells(WorksheetFunction.Match("OLD", ws.Columns(1), 0), 3).Value
            
            MsgBox "已完成一个新订单处理", vbInformation
        End If
    Next i
    
    MsgBox "所有新订单处理完成", vbInformation
End Sub

代码说明 #

• 先完成旧订单ID的定位，确保找到有效旧订单后再执行后续逻辑
• 遍历所有标记为“New”的行，逐个校验ID：只要有一个ID不匹配，立刻终止宏
• 支持单个旧订单对应多个新订单的场景，每个新订单都会被校验和处理
• 使用UCase统一大小写，避免因大小写不一致导致的识别错误
• 用lastRow获取表格实际最后一行，减少不必要的循环

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