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

gcl-1

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

我不懂VBA,还望指教一下如果分类需填充到H列.或G列时怎么修改哦?

AVEL

1. Option Explicit
   
2. Sub l()
   
3.     Dim d As Object
   
4.     Dim arr As Variant, brr As Variant
   
5.     Dim jg(1 To 10000, 1 To 1)
   
6.     Dim rng As Range
   
7.     Dim i As Integer, j As Integer
   
8.     On Error Resume Next
   
9.     Set d = CreateObject("Scripting.Dictionary")
   
10.     arr = Sheet2.UsedRange.Value
    
11.     brr = Sheet1.Range("a1:a" & Sheet1.[a65536].End(3).Row).Value
    
12.     For i = 2 To UBound(arr)
    
13.         d(arr(i, 1)) = arr(i, 2)
    
14.     Next
    
15.     For i = 2 To UBound(brr)
    
16.         For j = 2 To UBound(arr)
    
17.             If InStr(brr(i, 1), arr(j, 1)) Then
    
18.                 jg(i - 1, 1) = d(arr(j, 1))
    
19.                 Exit For
    
20.             End If
    
21.         Next
    
22.     Next
    
23.     Set d = Nothing
    
24.     Set rng = Application.InputBox("选择存放数据单元格：", "选择", "B2", , , , , 8)
    
25.     If Not rng Is Nothing Then rng.Resize(UBound(brr)).Value = jg
    
26. End Sub
    

复制代码

AVEL

EH(AVEL)-材料分类表 12-11-29 17-59.rar (18.74 KB, 下载次数: 38)

2012-11-29 18:00 上传

点击文件名下载附件

gcl-1

{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}

201228

社区检察动上来就是VBA， 佩服的五体投地！！