prin.huang

1. Sub div()
   
2.     Dim I%, J%
   
3.     Dim lenI() As Variant, str1() As Variant, str2(27, 13) As String
   
4.     lenI = Array(8, 4, 1, 1, 8, 8, 5, 7, 9, 4, 1, 1, 4)
   
5.     str1 = Worksheets("Sheet2").Range("B2:B28").Value
   
6.    
   
7.     For I = 1 To 27
   
8.         For J = 1 To 13
   
9.             str2(I, J) = Left(str1(I, 1), lenI(J))
   
10.             str1(I, 1) = Trim(Right(str1(I, 1), Len(str1(I, 1)) - lenI(J)))
    
11.         Next J
    
12.     Next I
    
13.     Worksheets("Sheet2").Range("C2:O28") = str2
    
14. End Sub

½Æ»s¥N½X