VBA按条件取值

luketools

当“库存表”C列规格等于“产品信息”表格里的C列规格时，“库存表”B列自动显示“产品信息”表格的C列规格对应的B列名称，如何用VBA实现？就是达到下面效果，B列显示对应的名称

cjc209

=LOOKUP(1,0/(C3=' 产品信息 '!C:C),' 产品信息 '!B:B)

luketools

cjc209 发表于 2021-1-17 16:25
=LOOKUP(1,0/(C3=' 产品信息 '!C:C),' 产品信息 '!B:B)

函数我知道，想用VBA实现

cjc209

vba也简单啊   

cjc209

Sub 测试()
    Sheet9.Cells(3, 2).Resize(1000) = ""
    Set dic = CreateObject("scripting.dictionary")
    Arr = Sheet1.[b1].CurrentRegion
    For i = 4 To UBound(Arr, 1)
        dic(Arr(i, 3)) = Arr(i, 2)
    Next i
    For i = 3 To Sheet9.Cells(Rows.Count, "C").End(xlUp).Row
        x = Sheet9.Cells(i, 3).Value
        Sheet9.Cells(i, 2) = dic(x)
    Next
End Sub

luketools

cjc209 发表于 2021-1-17 16:32
vba也简单啊

我不会，帮忙写一下呗，谢谢！

luketools

cjc209 发表于 2021-1-17 16:32
vba也简单啊

先送两朵小花表示感谢

于箱长

luketools 发表于 2021-1-17 16:52
先送两朵小花表示感谢

这类的代码在论坛里是相当多的，先搜一搜试试看

cjc209

Public dic全局 As Object  '声明全局变量,后期绑定
Sub 测试()
    Call 全局字典初始化
    Sheet9.[b3].Resize(1000) = ""
    arr = Sheet9.[b1].CurrentRegion
    For i = 3 To Cells(Rows.Count, "C").End(xlUp).Row
        Cells(i, 2) = dic全局(Cells(i, 3) & "")
    Next
End Sub
Function 全局字典初始化()
    If Not dic全局 Is Nothing Then Exit Function '如果全局字典不为空就退出
    Set dic全局 = CreateObject("scripting.dictionary")
    Dim arr, i, key
    arr = Sheet1.Range("a1:c" & Sheet1.Cells(Rows.Count, 3).End(xlUp).Row).Value
    '源数据装入字典
    For i = 3 To UBound(arr) '从第三行开始循环
        key = arr(i, 3) & ""  '关键字
        dic全局(key) = arr(i, 2)
    Next
End Function

cui26896

Sub test()
Dim arr, i%, d
  Set d = CreateObject("Scripting.Dictionary")
  With Sheets(1)
   arr = .Range("a2").CurrentRegion
   For i = 3 To UBound(arr)
     If d.exists(arr(i, 3)) = False Then
       d(arr(i, 3)) = i
     End If
   Next
  End With
    With Sheets(2)
      arr = .Range("a2").CurrentRegion
      For i = 3 To UBound(arr)
        If d.exists(arr(i, 3)) Then
          d(arr(i, 3)) = arr(i, 2)
        End If
      Next
    End With
    Sheets(1).Range("b3").Resize(d.Count, 2) = Application.Transpose(Array(d.items, d.keys))
End Sub