Sub Test()
'将sheet3的数据匹配到sheet2中

Dim DataCount As Integer
DataCount = Sheet2.UsedRange.Rows.Count

Dim CodeNum As String
'遍历每一行的编号,从第一行的编号开始
For i = 1 To DataCount
    '根据编号所在的列获取编号,编号所在的列为b列
    CodeNum = Sheet2.Cells(i, "b")
    If IsNull(CodeNum) Or CodeNum = vbNullString Then
         GoTo For_Continue
    End If
    
    Call TestA(CodeNum, i)

For_Continue:
Next i
MsgBox ("执行成功")
End Sub

'遍历sheet3的数据，将对应的数据加入到sheet2
Sub TestA(CodeNum As String, CodeNumIndex As Variant)
Dim DataCountA As Integer
DataCountA = Sheet3.UsedRange.Rows.Count

Dim CodeNumA As String
'遍历匹配每一行的数据
For i = 1 To DataCountA
    '匹配sheet3中编号所在的列
    CodeNumA = Sheet3.Cells(i, "a")
    If IsNull(CodeNumA) Or CodeNumA = vbNullString Then
         GoTo For_ContinueA
    End If
    
    '为匹配成功的行赋值
    If CodeNum = CodeNumA Then
        '为Sheet2的CodeNumIndex行d列赋值为Sheet3的i行b列
        Sheet2.Cells(CodeNumIndex, "d") = Sheet3.Cells(i, "b")
        Sheet2.Cells(CodeNumIndex, "e") = Sheet3.Cells(i, "c")
    End If

For_ContinueA:
Next i

End Sub