[µo°Ý] ¬°¦ó¨Ï¥Îindex°}¦C¶]11000µ§A-Gªº¸ê®Æ¶·­n¥|¤ÀÄÁ©O¡H

dechiuan999

¦U¦ì¤j¤j·s¦~¦n¡G

    ¤p§Ì¦³¤@¸ê®Æªí¡AÁ`¦C¼Æ¬°10989µ§¡C
²{·Q±N±qA-Gªº¨C¤@¦C¸ê®Æ¦X¨Ö¦ÜH¦ì¸m¡C
²{¨Ï¥Î°}¦C¤è¦¡¨Ó逹¦¨«o¶·µo¶O¬ù¥|¤ÀÄÁ
¥ª¥k¤~¯à逹¦¨¡C
    ½Ð°Ý¬O§_¤p§Ì¤Þ¥ÎªºINDEX¤è¦¡¤£¾A·í
¡AÁÙ¬O¥t¦³§ó¾A·íªº¤è¦¡¥i逹¦¨¶Ü¡H

¤U¦C»yªk¦p¤U¡G
Sub pp()
   
    Dim mSht As Worksheet
    Dim mArr()
    Dim s%, m%, r%
    Dim mRng
   
    Set mSht = Worksheets("Test")
    With mSht
        mRng = .Range("a1:g10989")
        r = UBound(mRng, 1)        
        For s = 1 To r            
            ReDim Preserve mArr(m)
            mArr(m) = Trim(Join(Application.WorksheetFunction.Index(mRng, s)))
            m = m + 1            
        Next        
        mArr = Application.Transpose(mArr)                       
       .Range("h1").Resize(m) = mArr
       .Range("h1") = "¦X¨Öñ¼f"
        
    End With
End Sub

·P®¦¤j¤j¡I

dechiuan999

ÁÂÁ¤G¦ìª©¥D¤j¤j¡C

GBKEEª©¥D¤j¤j¨Ï¥Î¦¹»yªk
¤]Åý¤p§Ì¨ü¯q¨}¦h¡C

¦~ÀY¤@¶}©l´N¦¬¤G¦ì¤j¤j¦p¦¹¬Ã¶Q§@«~¡A
¯u¬O¤@­Ó¤jÂצ¬ªº¤@¦~¡C

·P®¦¤j¤j¡I

¯¬¦U¦ì¤j¤j·s¬K´r§Ö¡I

GBKEE

¦^´_ 1# dechiuan999
§Aªºµ{¦¡¦] ReDim Preserve mArr(m) ³o¤@¦æ ¦Ó©µ¿ð¤F,§YµMª¾¹D½d³ò´Nª½±µµ¹°}¦Cªº¤j¤p

1. 
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR()
   
4.     With Sheets("Test")
   
5.         Set Rng = .Range("a1:g10989")
   
6.         ReDim AR(2 To Rng.Rows.Count)
   
7.         For I = 2 To Rng.Rows.Count
   
8.             AR(I) = Trim(Join(Application.Transpose(Application.Transpose(Rng.Rows(I)))))
   
9.         Next
   
10.         .Range("h1") = "¦X¨Öñ¼f"
    
11.         .[H2].Resize(UBound(AR) - 1, 1) = Application.Transpose(AR)
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

dechiuan999

oobirdª©¥D¤j¤j·s¦~¦n¡G

        ¤p§Ì§ï¥Îª©¥D¤j¤j´£¨Ñªº»yªk¡A
¥i»¡¬O¶W§Ö³tªº¡A²ª½µLªkÅý¤H·Q¶H¡C
§ó¥O¤p§ÌÅå§rªº¬O¤j¤j¤Þ¥Îdictionary
¬O¦p¦¹ªº¯«©_¡C
For s = 1 To r
            arr = Array(mRng(s, 1), mRng(s, 2), mRng(s, 3), mRng(s, 4), mRng(s, 5), mRng(s, 6), mRng(s, 7))
            MyCom = Trim(Join(arr))
            d(s) = MyCom           
        Next

¬°¦ó¤GªÌ¤§®t²§©Ê·|¬O¦p¦¹¤§¤j©O¡H

·P®¦¤j¤j¡I

oobird

§ï³o¼Ë·|§Ö±o¦h
Sub pp()
   
    Dim mSht As Worksheet
    Dim d As Object, arr
    Dim s%, m%, r%
    Dim mRng
    Set d = CreateObject("Scripting.Dictionary")
    Set mSht = Worksheets("Test")
    With mSht
        mRng = .Range("a1:g10988")
        r = UBound(mRng, 1)
        
        For s = 1 To r
arr = Array(mRng(s, 1), mRng(s, 2), mRng(s, 3), mRng(s, 4), mRng(s, 5), mRng(s, 6), mRng(s, 7))
MyCom = Join(arr)
d(s) = MyCom
           
        Next
       .Range("h1").Resize(r) = Application.Transpose(d.items)
       .Range("h1") = "¦X¨Öñ¼f"
        
    End With
End Sub