宏怎么跨表进行检索包含判断，然后写入此行的数据呢？

o0star0o

用表1中B列单元格内的数据，到表2的AE列进行查询
if找到后
就在表2的BE-BG列，写入表1的A、B和E的数据（就写入在表2的当前查询到行的后面）


请问这个宏怎么实现呢？请大神看下附件

ykcbf1100

一查多。。

gwjkkkkk

Sub TEST()
    Dim arr, brr, vData, i&, j&, k&
    On Error Resume Next
    With Sheets("表1").Range("A1").CurrentRegion
        arr = .Resize(, 5)
    End With
    brr = Range(Cells(Rows.Count, "AE").End(xlUp), "AE6")
    ReDim vData(1 To UBound(brr), 1 To 3)
    For i = 1 To UBound(brr)
       For j = 2 To UBound(arr)
          If InStr(brr(i, 1), arr(j, 2)) Then
             For k = 1 To 3
                 vData(i, k) = arr(j, IIf(k = 3, 5, k))
             Next k
             Exit For
          End If
       Next j
    Next i
    [BE6].Resize(UBound(vData), UBound(vData, 2)) = vData
    Beep
End Sub

gwjkkkkk

参与一下。。。

msnmurong

ykcbf1100 发表于 2022-11-30 08:52
一查多。。

把表二的数据全部删掉就留一行,就不行了

msnmurong

gwjkkkkk 发表于 2022-12-1 21:30
参与一下。。。

你的也是哦。只留一条数据 就不行了。不能随着数据新增或减少的,这个功能有缺陷