[已解决]单条件取值

王英wang

各位老师帮忙看看，单条件取值问题

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-3-13 19:29

1. 参考附件

复制代码

跳转到最佳答案楼层

望帝春心

1. =VLOOKUP($H2,'2'!$A:$C,COLUMN(B1),)

复制代码

右拉公式

王英wang

望帝春心 发表于 2017-3-13 18:46
右拉公式

用VBA,最好是字典

望帝春心

王英wang 发表于 2017-3-13 18:59
用VBA,最好是字典

表二有重复项吗？

望帝春心

1. Sub test()
   
2.     Dim i&, j&, k&, arr, brr
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     arr = Sheets(2).[a1].CurrentRegion
   
5.     brr = Sheets(1).[a1].CurrentRegion
   
6.     For i = 1 To UBound(arr)
   
7.         dic(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))
   
8.     Next
   
9.     For j = 1 To UBound(brr)
   
10.         If dic.exists(brr(j, 1)) Then
    
11.             brr(j, 2) = dic(brr(j, 1))(0)
    
12.             brr(j, 3) = dic(brr(j, 1))(1)
    
13.         End If
    
14.     Next
    
15.     Sheets(1).[a1].Resize(UBound(brr), 3) = brr
    
16. End Sub

复制代码

望帝春心

1. 参考附件

复制代码

王英wang

望帝春心 发表于 2017-3-13 19:29

非常感谢帮助，谢谢