求助：数据自动匹配VBA

niyanbing

在工作表1中如何自动匹配工作表2的内容，比如在工作表1中输入编码111，自动匹配工作表2中对应的数据填充到工作表1中来，内容可以自定义添加的那种，模式打开文件自动更新，不要使用按钮。

niyanbing

使用结束编辑后自动更新

约定的童话

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 1 And Target.Column = 1 Then
        Dim arr, brr(1 To 1, 1 To 5), i, j
        arr = Sheet2.[a1].CurrentRegion
        For i = 2 To UBound(arr)
            If arr(i, 1) = Cells(Target.Row, Target.Column) Then
                For j = 1 To 5
                    brr(1, j) = arr(i, j)
                Next
                Cells(Target.Row, Target.Column).Resize(UBound(brr), 5) = brr
            End If
        Next
    End If
End Sub
好用平下分吧，谢谢！

niyanbing

约定的童话 发表于 2019-6-3 20:21
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 1 And Target.Colum ...

工作表1 B列取工作表2的制定列怎么弄啊？比如：以表1的A列为基准，C列取工作表2的F或者H列，这样子，就是工作表1的B C D E列各自取工作表2的指定列