按材料的品种模糊查找后进行分类

gcl-1

材料分类表.zip (11.32 KB, 下载次数: 30)

2012-11-28 23:03 上传

点击文件名下载附件
见附件

如图

gcl-1

安全为主

试试这个=VLOOKUP("*"&A2&"*",data!A:B,2,)
数据多，楼主自己验证下

AVEL

1. Option Explicit
   
2. Sub l()
   
3.     Dim d As Object
   
4.     Dim arr As Variant, brr As Variant
   
5.     Dim i As Integer, j As Integer
   
6.     Set d = CreateObject("Scripting.Dictionary")
   
7.     arr = Sheet2.UsedRange.Value
   
8.     brr = Sheet1.Range("a1:b" & Sheet1.[a65536].End(3).Row).Value
   
9.     For i = 2 To UBound(arr)
   
10.         d(arr(i, 1)) = arr(i, 2)
    
11.     Next
    
12.     For i = 2 To UBound(brr)
    
13.         For j = 2 To UBound(arr)
    
14.             If InStr(brr(i, 1), arr(j, 1)) Then
    
15.                 brr(i, 2) = d(arr(j, 1))
    
16.                 Exit For
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     Set d = Nothing
    
21.     Sheet1.[a1].Resize(UBound(brr), 2).Value = brr
    
22. End Sub

复制代码

AVEL

EH(AVEL)-材料分类表 12-11-28 23-28.rar (18.45 KB, 下载次数: 46)

2012-11-28 23:29 上传

点击文件名下载附件

clarezhang

=LOOKUP(1,1/FIND(A2,data!$A$1:$A$270),data!$B$1:$B$270)

gdlihaoran

随便弄了下，好了请给花{:soso_e149:}

gdlihaoran

AVEL 发表于 2012-11-28 23:28

还是你厉害......555555

gcl-1

{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}先谢过各位大人.....下来慢慢研究...不懂再问...

gcl-1

试了一下.还是VB强大.公式稍有缺陷:如H型钢改为(H型钢200*100*5)时公式就不能分类了.