vba读取每位员工的最高学历

titi012

参与一下啊

1. Sub text()
   
2.     Dim Arr, Drr, Brr(), Crr
   
3.     Dim x&, y&, aRow&, Dic As Object
   
4.     Crr = Array("研究生", "本科", "专科")
   
5.     aRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
   
6.     Arr = Sheet1.Range("a2:b" & aRow).Value
   
7.     Set Dic = CreateObject("scripting.dictionary")
   
8.     For x = 1 To aRow - 1
   
9.         Dic(Arr(x, 1)) = Arr(x, 2) & Dic(Arr(x, 1))
   
10.     Next
    
11.     Drr = Dic.keys
    
12.     ReDim Brr(0 To UBound(Drr))
    
13.     For x = 0 To UBound(Drr)
    
14.         For y = 0 To 2
    
15.             If Dic(Drr(x)) Like "*" & Crr(y) & "*" Then
    
16.                 Brr(x) = Crr(y)
    
17.                 Exit For
    
18.             End If
    
19.     Next y, x
    
20.     Sheet2.Range("a1").Resize(UBound(Drr) + 1, 1) = WorksheetFunction.Transpose(Drr)
    
21.     Sheet2.Range("b1").Resize(UBound(Drr) + 1, 1) = WorksheetFunction.Transpose(Brr)
    
22. End Sub

复制代码