Hsieh

1. Sub ex()
   
2. Dim Ay()
   
3. ar = Range("A1").CurrentRegion
   
4. For i = 2 To UBound(ar, 2)
   
5.    For j = 2 To UBound(ar, 1)
   
6.       If ar(j, i) <> "" Then
   
7.          ReDim Preserve Ay(s)
   
8.          Ay(s) = Array(ar(1, i), ar(j, 1), ar(j, i))
   
9.          s = s + 1
   
10.       End If
    
11.     Next
    
12. Next
    
13. [S1].Resize(s, 3) = Application.Transpose(Application.Transpose(Ay))
    
14. End Sub

½Æ»s¥N½X

¦^´_ 1# luke