chin15

1. Option Explicit
   
2. Sub test()
   
3.     Dim n%, c%, i%, j%, m%, arr(), rng
   
4.     n = [a65536].End(3).Row
   
5.     c = [iv1].End(1).Column
   
6.     rng = [a1].Resize(n, c)
   
7.     For i = 2 To c
   
8.         For j = 2 To n
   
9.             If rng(j, i) <> "" Then
   
10.                 m = m + 1
    
11.                 ReDim Preserve arr(1 To 3, 1 To m)
    
12.                 arr(1, m) = rng(1, i)
    
13.                 arr(2, m) = rng(j, 1)
    
14.                 arr(3, m) = rng(j, i)
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     Sheet2.[a1].Resize(m, 3) = Application.Transpose(arr)
    
19. End Sub

½Æ»s¥N½X