如何使用vba合并具有特定要求的两个单独数据表中的单元格

Sub 合并单元格()
    Dim 数据表1 As Worksheet
    Dim 数据表2 As Worksheet
    Dim 目标表 As Worksheet
    Dim 数据表1行数 As Integer
    Dim 数据表2行数 As Integer
    Dim i As Integer
    
    Set 数据表1 = ThisWorkbook.Sheets("数据表1") ' 将"数据表1"替换成第一个数据表的名称
    Set 数据表2 = ThisWorkbook.Sheets("数据表2") ' 将"数据表2"替换成第二个数据表的名称
    Set 目标表 = ThisWorkbook.Sheets("目标表") ' 将"目标表"替换成要将合并结果放置的工作表名称
    
    数据表1行数 = 数据表1.Cells(Rows.Count, 1).End(xlUp).Row ' 获取数据表1中最后一行的行数
    数据表2行数 = 数据表2.Cells(Rows.Count, 1).End(xlUp).Row ' 获取数据表2中最后一行的行数
    
    ' 遍历数据表1的每一行
    For i = 1 To 数据表1行数
        ' 判断是否满足特定要求，可以根据实际情况进行修改
        If 数据表1.Cells(i, 2).Value = "特定要求" Then
            ' 将满足要求的单元格内容复制到目标表中对应的位置
            目标表.Cells(i, 1).Value = 数据表1.Cells(i, 2).Value
            目标表.Cells(i, 2).Value = 数据表2.Cells(i, 2).Value
        End If
    Next i
    
    MsgBox "合并完成！"
End Sub