Question

请求大神帮忙写个excel VBA代码，谢谢！

想用数组的方式，把“分类1”中，如果cells(i,2) = "jj"，那么将B&i+1&:C&i+19&设为数组区域，然后实现像vlookup功能那样，把数据表里B3:C7的数据同步过来，比如“分类1”中，B40=“金”，那么运行代码时，C40就等于“数据表”中的“A”，麻烦大神帮我写个代码，不胜感激！！





Answer 1

法如下：

一、开发工具

二、双击sheet

三、建立事件

选择Change事件

四、编写代码

Private Sub Worksheet_Change(ByVal Target As Range)

Dim FRG As Range

If Target.Column = 2 Then

Set FRG = Sheet2.Range("B:B").Find(Target)

    If Not FRG Is Nothing Then

        Sheet1.Range("B" & Target.Row) = Sheet2.Range("B" & FRG.Row)

        Sheet1.Range("C" & Target.Row) = Sheet2.Range("C" & FRG.Row)

        Sheet1.Range("D" & Target.Row) = Sheet2.Range("D" & FRG.Row)

        Sheet1.Range("E" & Target.Row) = Sheet2.Range("E" & FRG.Row)

        Sheet1.Range("F" & Target.Row) = Sheet2.Range("F" & FRG.Row)

        Sheet1.Range("G" & Target.Row) = Sheet2.Range("G" & FRG.Row)

        Sheet1.Range("H" & Target.Row) = Sheet2.Range("H" & FRG.Row)

    End If

End If

End Sub

五、在分类1中输入金，后面数据自动出来