Hsieh

¦^´_ 1# g93353

1. Sub nn()
   
2. Dim Ar(), A As Range
   
3. For Each A In Range([A6], [A6].End(xlDown))
   
4.    If IsDate(A) Then
   
5.    ReDim Preserve Ar(s)
   
6.    Ar(s) = Array(A.Value, "»¡©ú")
   
7.    s = s + 1
   
8.    Else
   
9.    ReDim Preserve Ar(s)
   
10.    x = Application.Sum(A.EntireRow)
    
11.    Ar(s) = Array(x, "")
    
12.    s = s + 1
    
13.    End If
    
14. Next
    
15. Range("A6").CurrentRegion = ""
    
16. [A6].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
    
17. End Sub

½Æ»s¥N½X