GBKEE

¦^´_ 1# ffntldj
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim D As Object, Rng As Range, R As Range, Ar()
   
3.     Set D = CreateObject("SCRIPTING.DICTIONARY")                       '³]¥ßDICTIONARYª«¥ó
   
4.     Set Rng = [A1:C9]                                                  '«ü©w½d³ò
   
5.     For Each R In Rng.Rows                                             'Rows «ü©w½d³òªº¨C¤@¦C
   
6.         Ar = Application.Transpose(Application.Transpose(R.Cells.Value)) '±NRÂà¸m¤G¦¸Âà´«¬°¤@ºû°}¦C
   
7.         D(Join(Ar, ",")) = Ar        'DICTIONARYª«¥ó KEY ->Join(AR, ",")  ,DICTIONARYª«¥ó ITEM->Ar
   
8.     Next
   
9.     [E1].Resize(D.Count, Rng.Columns.Count) = Application.Transpose(Application.Transpose(D.items))
   
10.     'D.Count-> DªºÁ`¼Æ,         Rng.Columns.Count->RngÄæ¦ìªºÁ`¼Æ.
    
11.     '¨C¤@ D.ITEM ¬O¬°¤@ºû°}¦C   D.ITEMs ->D.ITEMªº¶°¦X.
    
12.     'Application.Transpose(Application.Transpose(D.ITEMS)) ->±ND.ITEMS Âà¸m¤G¦¸«á¬°¤G¬°°}¦C
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# ffntldj
Set Rng = Range("A1").CurrentRegion
CurrentRegion ÄÝ©Ê->¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥Ø«eªº°Ï°ì¡C¥Ø«e°Ï°ì¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò¡C°ßŪ¡C

Set Rng = Range("A1", Range("C1").End(xlDown))
End ÄÝ©Ê-> ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥]§t¨Ó·½½d³ò¤§°Ï°ìµ²§À³BªºÀx¦s®æ¡Cµ¥©ó«ö END+¦V¤WÁä¡BEND+¦V¤UÁä¡BEND+¦V¥ªÁä©Î END+¦V¥kÁä¡C°ßŪ Range ª«¥ó¡C