GBKEE

¦^´_ 8# aok669

1. Sub Ex()
   
2.     Dim R, R1, R2, R3, ¦¸¼Æ%
   
3.     ¦¸¼Æ = 10
   
4.     With Range("D5", [D5].End(xlDown))
   
5.         .Resize(.Cells.Rows.Count, 2) = ""
   
6.         For Each R In .Cells
   
7.             Set R1 = Range(Cells(R.Row, "G"), Cells(R.Row, "IV").End(xlToLeft))
   
8.             For Each R2 In R1
   
9.                 Set R3 = R2.Resize(1, ¦¸¼Æ)
   
10.                 If R3(¦¸¼Æ).Column > R1(R1.Count).Column Then Exit For
    
11.                 If Application.CountA(R3) = ¦¸¼Æ Then
    
12.                     'CountA ­pºâ½d³ò¤º«DªÅ¥Õ¦³¸ê®Æªº­Ó¼Æ
    
13.                     R.Value = Application.Sum(R3)
    
14.                     R.Offset(, 1) = ¦¸¼Æ * 6
    
15.                     Exit For
    
16.                 End If
    
17.             Next
    
18.         Next
    
19.     End With
    
20. End Sub

½Æ»s¥N½X