GBKEE

¦^´_ 1# metrostar

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim i%, ii%
   
3.     If Target.Column = 3 Or Target.Column = 4 And Target.Row >= 2 Then
   
4.         With Range("G" & Rows.Count).End(xlUp).Offset(1)
   
5.             ii = 0
   
6.             For i = 1 To Len(ActiveCell) Step 4
   
7.                 .Offset(, ii) = Mid(ActiveCell, i, 4)
   
8.                 ii = ii + 1
   
9.             Next
   
10.         End With
    
11.     End If
    
12. End Sub

½Æ»s¥N½X