Hsieh

1. Sub nn()
   
2. For Each a In Range([A1], [A65536].End(xlUp).Offset(-1, 0))
   
3.     For Each b In Range(a.Offset(1, 0), [A65536].End(xlUp))
   
4.     r = r + 1
   
5.     Range(Cells(r, 5), Cells(r, 6)) = Array(a.Value, b.Value)
   
6.     Next
   
7. Next
   
8. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 7# jimmuLu


    Sub nn()
For Each a In Range([A1], [A65536].End(xlUp).Offset(-1, 0))'°j°é½d³ò±q²Ä¤@­ÓÀx¦s®æ¶}©l¡A¨ìAÄæ³Ì«áÀx¦s®æ©¹¤W§ä¨ì¸ê®Æ¡A¦A©¹¤W¤@®æ¡A´N¬O³Ì«á²Ä¤Gµ§
    For Each b In Range(a.Offset(1, 0), [A65536].End(xlUp))'°j°é±q²Ä¤@­Ó°j°éÅܼƪº¤U¤@®æ¶}©l¡A¨ì¸ê®Æµ²§ô
    r = r + 1
    Range(Cells(r, 5), Cells(r, 6)) = Array(a.Value, b.Value)'¨Ì§Ç¶ñ¤JE:FÄæ
    Next
Next
End Sub