­ã´£³¡ªL

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim N, M
   
3. With Target
   
4. ¡@¡@If .Column >= [M1].Column And .Column <= [P1].Column And .Row > 1 Then
   
5. ¡@¡@¡@¡@Application.EnableEvents = False
   
6. ¡@¡@¡@¡@N = .Value
   
7. ¡@¡@¡@¡@If N <> "" Then M = 0
   
8. ¡@¡@¡@¡@[M1:P1].Offset(.Row - 1, 0) = M
   
9. ¡@¡@¡@¡@.Value = N
   
10. ¡@¡@¡@¡@Application.EnableEvents = True
    
11. ¡@¡@End If
    
12. End With
    
13. End Sub

½Æ»s¥N½X