求修改代码，将满足A列条件的数据整行提取

xiang当当

求修改代码，把表“2”中任务号等于表“1”A列任务号的 其余列数据提取到表“1”B:AO列。当找不到对应的任务号时，返回空，继续下一行匹配。

现在问题是：如图，”1“A2单元格在表2找不到对应数据，B:A0需要返回空值，而不是A3单元格对应的数据。

xiang当当

顶上去，求改

xiaojiao@22851

Sub 获取()

    arr = Sheets("1").[a1].CurrentRegion
    brr = Sheets("2").[a2].CurrentRegion

    For i = 2 To UBound(arr)
        m = 0
        For ii = 3 To UBound(brr)
            
            If Trim(brr(ii, 2)) = Trim(arr(i, 1)) Then
                m = m + 1
                For j = 1 To UBound(brr, 2)
                    Sheets("1").Range(Cells(i, j + 1), Cells(i, j + 1)) = brr(ii, j)
                Next
            End If
        Next
        '如果工作表1，A列任务号在工作表2中找不到，即m=0，则清空1中对应行A列后的数据
        If m = 0 Or arr(i, 1) = "" Then
          Sheets("1").Range(Cells(i, 2), Cells(i, UBound(arr, 2))).ClearContents
       End If
    Next
   
    Sheets("1").Range(Cells(1, 1), Cells(LBound(arr), UBound(arr, 2))).Borders.LineStyle = xlContinuous

End Sub