FAlonso

1. Sub test()
   
2. Dim i As Integer, j As Integer, k As Integer, ar(), dic As Object
   
3. 
   
4. [j1:k65536] = ""
   
5. 
   
6. For i = 1 To [IV1].End(xlToLeft).Column Step 2
   
7.     For j = 1 To [a65536].End(xlUp).Row Step 30
   
8.     ar = Range(Cells(j, i), Cells(j + 29, i + 1))
   
9.         For k = 1 To UBound(ar)
   
10.         If Not ar(k, 1) Like "*³¡" Then
    
11.         ar(k, 1) = Left(ar(k, 1), 1)
    
12.         End If
    
13.         Next
    
14. 
    
15. If [j65536].End(xlUp).Address = "$J$1" Then
    
16. [j65536].End(xlUp).Resize(UBound(ar), 2) = Application.Transpose(Application.Transpose(ar))
    
17. Else
    
18. [j65536].End(xlUp).Offset(1).Resize(UBound(ar), 2) = Application.Transpose(Application.Transpose(ar))
    
19. Erase ar
    
20. End If
    
21. 
    
22. Next
    
23. Next
    
24. 
    
25. End Sub

½Æ»s¥N½X

¸Õ¸Õ³o­Ó