c_c_lai

¦^´_ 7# jessicamsu
Hsieh «e½úªº Idea «D±`´Î¡A§Ú±N¥¦µyµy­×¹¢¤F¤@¤U¡A
§Y¥ý±N A2:C28 ªº¤º®e½Æ»s¨ì E2:G28 «á¦A³B²z¤ÀªR¡A
¥H©ú½T¬Ý±o¥X¨Óµ{¦¡¬O¦p¦ó°õ¦æ³B²zªº¡C
¦P®É¸É¤W¤F ky ªºÅܼƫŧi¡C

1. Sub ex()
   
2.     Dim ky As Variant
   
3.    
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Application.DisplayAlerts = False
   
6.    
   
7.     [A2:C28].Copy Destination:=[E2]
   
8.    
   
9.     For i = 7 To 5 Step -1
   
10.         For Each a In Range(Cells(2, i), Cells(Rows.Count, i).End(xlUp))
    
11.             mystr = a & a.Offset(, IIf(i = 5, 0, -1))
    
12.             If IsEmpty(d(mystr)) Then
    
13.                 Set d(mystr) = a
    
14.             Else
    
15.                 Set d(mystr) = Union(d(mystr), a)
    
16.             End If
    
17.         Next
    
18.         For Each ky In d.keys
    
19.             d(ky).Merge
    
20.         Next
    
21.         d.RemoveAll
    
22.     Next
    
23.    
    
24.     Application.DisplayAlerts = True
    
25. End Sub

½Æ»s¥N½X

§Ö³t¦X¨ÖÀx¦s®æ.rar (8.14 KB)

¤U¸ü¦¸¼Æ: 10

2012-9-9 10:36