怎么用vba代码实现VLOOKUP函数的功能

小年玩卡

表格A列属于4位数据中的码，对应的B,C,D列自动显示结果，由于需要创建很多工作表，会影响速度，能否用vba实现？
模板 (2).rar (23.18 KB, 下载次数: 394)

2018-9-14 21:04 上传

点击文件名下载附件

719404338

1. Sub t()
   
2. Dim arr, i%, j%
   
3. Sheet2.Activate
   
4. arr = Sheet2.Range("a4:f258")
   
5. For j = 1 To UBound(arr)
   
6. For i = 2 To [a65536].End(3).Row
   
7.   If Range("a" & i) = arr(j, 1) Then
   
8.      Range("b" & i) = arr(j, 2)
   
9.      Range("c" & i) = arr(j, 4)
   
10.      Range("d" & i) = arr(j, 6)  
    
11.   End If
    
12.   Next i, j
    
13. End Sub
    

复制代码

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.     If Target.Column <> 1 Then Exit Sub
   
4.     If Target.Row = 1 Then Exit Sub
   
5.     If Len(Target) <> 4 Then Exit Sub
   
6.     With Sheets("m")
   
7.         Set Rng = .Columns(1).Find(Target.Value, lookat:=xlWhole)
   
8.         If Not Rng Is Nothing Then
   
9.             Application.EnableEvents = False
   
10.                 Cells(Target.Row, 2) = Rng.Offset(0, 1)
    
11.                 Cells(Target.Row, 3) = Rng.Offset(0, 3)
    
12.                 Cells(Target.Row, 4) = Rng.Offset(0, 5)
    
13.             Application.EnableEvents = True
    
14.         End If
    
15.     End With
    
16. End Sub

复制代码

liulang0808

附件内容供参考。。。。。

小年玩卡

liulang0808 发表于 2018-9-14 21:32
附件内容供参考。。。。。

感谢 解答，是这么回事

小年玩卡

liulang0808 发表于 2018-9-14 21:32
附件内容供参考。。。。。

您好，这个代码是整个A列只要有数字都可以，能不能设置终止，比如700之后就不用查找了

liulang0808

小年玩卡 发表于 2018-9-14 22:20
您好，这个代码是整个A列只要有数字都可以，能不能设置终止，比如700之后就不用查找了

增加if语句，对target的值进行判断

小年玩卡

liulang0808 发表于 2018-9-15 15:30
增加if语句，对target的值进行判断

对代码不懂，
不知道怎么增加，能否帮我写出来呢，非常感谢

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    If Len(Target) <> 4 Then Exit Sub
if target.value >=700 the exit sub
    With Sheets("m")
        Set Rng = .Columns(1).Find(Target.Value, lookat:=xlWhole)
        If Not Rng Is Nothing Then
            Application.EnableEvents = False
                Cells(Target.Row, 2) = Rng.Offset(0, 1)
                Cells(Target.Row, 3) = Rng.Offset(0, 3)
                Cells(Target.Row, 4) = Rng.Offset(0, 5)
            Application.EnableEvents = True
        End If
    End With
End Sub

小年玩卡

liulang0808 发表于 2018-9-15 21:35
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count  1 Then Exit Sub
    If Ta ...

非常感谢