[已解决]查找按钮

lh442246

利率.rar (14.27 KB, 下载次数: 7)

2014-7-8 10:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

云影

2014-7-8 10:35

利率.rar (20.69 KB, 下载次数: 2)

2014-7-8 10:35 上传

点击文件名下载附件

跳转到最佳答案楼层

baksy

=VLOOKUP(A2,Sheet1!A$2:B$10,2,0)

lh442246

baksy 发表于 2014-7-8 10:10
=VLOOKUP(A2,Sheet1!A$2:B$10,2,0)

谢谢老师！

云影

利率.rar (20.69 KB, 下载次数: 2)

2014-7-8 10:35 上传

点击文件名下载附件

fffox

VBA方式：

1. Sub lilu()
   
2.     Dim d As Object, arr, brr, crr(), i%
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     brr = Sheet1.Range("a1").CurrentRegion.Value
   
5.     For i = 2 To UBound(brr)
   
6.         d(brr(i, 1)) = brr(i, 2)
   
7.     Next
   
8.     arr = Sheet2.Range("a2:n121").Value 'a2:n121，自行改动区域最后行
   
9.     ReDim crr(1 To UBound(arr), 1 To 1)
   
10.     For i = 1 To UBound(arr)
    
11.         If arr(i, 1) <> "" Then
    
12.             crr(i, 1) = d(arr(i, 1))
    
13.         End If
    
14.     Next
    
15.     Sheet2.Range("l2").Resize(UBound(crr)) = crr
    
16. End Sub

复制代码

su45

不要按钮，只要E列输入数字就行：

利率.zip (20 KB, 下载次数: 1)

2014-7-8 13:45 上传

点击文件名下载附件

lh442246

su45 发表于 2014-7-8 13:45
不要按钮，只要E列输入数字就行：

谢谢老师！先收藏！