ikboy

­ã¤j»¡±o¹ï, °h¤@¨B¤èªk, «öENTER«á³B²z¤À³Î¡C

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Cells.Count > 1 Then Exit Sub
   
3. Dim s$, a
   
4. Application.EnableEvents = 0
   
5. Application.ScreenUpdating = 0
   
6. s = Target.Value
   
7. With CreateObject("vbscript.regexp")
   
8.     .Pattern = "(.{5})"
   
9.     .Global = True
   
10.     a = Split(.Replace(s, "$1" & Chr(10)), Chr(10))
    
11.     Target.Resize(UBound(a) + 1) = Application.Transpose(a)
    
12.     Target.Offset(UBound(a) + 1).Activate
    
13. End With
    
14. Application.EnableEvents = 1
    
15. Application.ScreenUpdating = 1
    
16. End Sub

½Æ»s¥N½X