GBKEE

¦^´_ 1# lone_tiger0303

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar, xA, xF As Range, xS As Integer
   
4.     With Sheets("DMS")
   
5.         Ar = Application.Transpose(.Range("L1", .[L1].End(xlDown)).Value)
   
6.         Ar = Join(Ar, ",")
   
7.         Ar = Split(Ar, ",")
   
8.         With .Range("IR1")
   
9.             .Resize(UBound(Ar)) = Application.Transpose(Ar)
   
10.             .Resize(UBound(Ar)).Offset(, 1) = 1
    
11.             xA = .Resize(UBound(Ar)).Resize(, 2).Address(, , 0)
    
12.             .Offset(, 2).Consolidate xA, xlSum, 0, 1                 '·Jºâ¥X¤£­«½Æªº¦W³æ
    
13.             Erase Ar
    
14.             For Each xA In .Offset(, 2).Resize(Rows.Count, 1).SpecialCells(xlCellTypeConstants)
    
15.                 If xA.Row <> 1 And xA <> "" Then
    
16.                     Set xF = Sheets("­û¤u¦W³æ").Cells.Find(xA, lookat:=xlWhole)
    
17.                     If Not xF Is Nothing Then
    
18.                         ReDim Preserve Ar(xS)
    
19.                         Ar(xS) = xA
    
20.                         xS = xS + 1
    
21.                     End If
    
22.                 End If
    
23.             Next
    
24.             .CurrentRegion = ""
    
25.         End With
    
26.         If xS > 0 Then
    
27.             .Range("AI2:AI" & Rows.Count) = ""
    
28.             .Range("AI2").Resize(xS).Value = Application.Transpose(Ar)
    
29.         End If
    
30.    End With
    
31. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# lone_tiger0303
¤@¹ï¤@~~­«½Æªº¦W³æ¤£¥Î§R°£¡A¥B¤£¥Î©¹¤W²¾
°µ­Ó½d¨Ò»¡©ú¤@¤U

GBKEE

¦^´_ 7# lone_tiger0303

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), xR As String, xF As Range, xS As Integer
   
4.     With Sheets("DMS")
   
5.         Ar = .Range("L2", .[L2].End(xlDown)).Value
   
6.         For xS = 1 To UBound(Ar)
   
7.             xR = Split(Ar(xS, 1), ",")(0)
   
8.             Set xF = Sheets("­û¤u¦W³æ").Cells.Find(xR, lookat:=xlWhole)
   
9.             If Not xF Is Nothing Then
   
10.                 Ar(xS, 1) = xF
    
11.             Else
    
12.                 Ar(xS, 1) = ""
    
13.             End If
    
14.         Next
    
15.         .Range("AI2:AI" & Rows.Count) = ""
    
16.         .[AI2].Resize(UBound(Ar)) = Ar
    
17.    End With
    
18. End Sub

½Æ»s¥N½X