[已解决]提取指定的值

WL001

A列中如果出与E列相同的值,则提取出,没有相同的显示为0，详见附件。谢谢先！！！

最佳答案

月排行榜 / 总排行榜

baksy

2016-3-12 18:56

附件

跳转到最佳答案楼层

雪舞子

1. Sub test()
   
2.     Dim arr, ar, brr(), i&, j&
   
3.     arr = Range("a2:a" & [a65536].End(3).Row)
   
4.     ar = Range("e2:e" & [e1].End(4).Row)
   
5.     ReDim brr(1 To UBound(arr), 1 To 1)
   
6.     For i = 1 To UBound(arr)
   
7.         For j = UBound(ar) To 2 Step -1
   
8.             If InStr(arr(i, 1), ar(j, 1)) Then Exit For
   
9.         Next
   
10.         brr(i, 1) = IIf(j > 1, ar(j, 1), 0)
    
11.     Next
    
12.     [g2].Resize(i - 1) = brr
    
13. End Sub

复制代码

提取指定的值.rar (87.43 KB, 下载次数: 9)

2016-3-12 17:55 上传

点击文件名下载附件

baksy

附件

WL001

谢谢两位相助！！