GBKEE

¦^´_ 1# joslau

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), i As Integer, S As Integer
   
4.     i = 2
   
5.     With ActiveSheet
   
6.         Do While .Cells(i, "C") <> ""
   
7.             If .Cells(i, "A") & .Cells(i, "B") <> "" Then
   
8.                 S = S + 1
   
9.                 ReDim Preserve Ar(1 To 4, 1 To S) '°}¦C:­«¸m ²Ä¤Gºûªº¤¸¯À¤W­­­È
   
10.                 Ar(1, S) = .Cells(i, "A")
    
11.                 Ar(2, S) = .Cells(i, "B")
    
12.                 Ar(3, S) = .Cells(i, "C")
    
13.                 Ar(4, S) = .Cells(i, "C")
    
14.             Else
    
15.                 Ar(4, S) = Ar(4, S) & "," & .Cells(i, "C")
    
16.             End If
    
17.             i = i + 1
    
18.         Loop
    
19.         .Range("F2").Resize(S, 4) = Application.Transpose(Ar)
    
20.     End With
    
21. End Sub

½Æ»s¥N½X