Hsieh

¦^´_ 4# basarasy

1. Sub Ex()
   
2. With ActiveSheet
   
3. Dim Ay(5, 3)
   
4. For i = 1 To 5
   
5.    For j = 4 To 6
   
6.      If .Cells(i, j) <> "" Then
   
7.         Ay(i - 1, s) = .Cells(i, j).Value
   
8.         s = s + 1
   
9.      End If
   
10.    Next
    
11.    For x = s To 2
    
12.      Ay(i - 1, x) = ""
    
13.    Next
    
14.     s = 0
    
15. Next
    
16. .[D1:F5].ClearContents
    
17. .[D1:F5] = Application.Transpose(Application.Transpose(Ay))
    
18. End With
    
19. End Sub

½Æ»s¥N½X