register313

回復 1# lone_tiger0303

資料量大 執行較週

1. Sub zz()
   
2. Application.ScreenUpdating = False
   
3. Dim Rng As Range, Ar
   
4. Set Rng = Sheets("DMS").[L2]
   
5. Range(Rng, [L65536].End(xlUp)).Offset(0, 23) = ""
   
6. Do
   
7.   If InStr(Rng, ",") Then
   
8.      Ar = Split(Rng, ",")
   
9.      For I = 0 To UBound(Ar)
   
10.        Set X = Sheets("員工名單").UsedRange.Find(Ar(I), , xlValues, xlWhole)
    
11.        If Not X Is Nothing Then
    
12.           Rng.Offset(0, 23) = Rng.Offset(0, 23) & X & " "
    
13.        End If
    
14.      Next I
    
15.   Else
    
16.        Set X = Sheets("員工名單").Cells.Find(Rng, , xlValues, xlWhole)
    
17.        If Not X Is Nothing Then
    
18.           Rng.Offset(0, 23) = Rng
    
19.        End If
    
20.   End If
    
21.   Set Rng = Rng.Offset(1)
    
22. Loop Until Rng(1) = ""
    
23. Application.ScreenUpdating = True
    
24. End Sub

複製代碼

2012-01_DMS業代轄區.rar (76.38 KB)

下載次數: 6

2012-2-18 23:51