请老师帮忙，解决Excel2003代码问题，首先感谢！

Dim i As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("DK18:DK28")) Is Nothing And Target.Count = 1 Then
  If i = 0 Then
    Sheet1.Range("k6") = Target
    i = 1
   Else
    Sheet1.Range("k5") = Target
    i = 0
  End If
  End If
End Sub

Dim n&
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = 37 And T.Row > 16 And T.Row < 29 Then
    If T.Address = "$AK$17" Then
        Sheets("Sheet1").[k5:k6] = "": Exit Sub
    Else
        n = n + 1
        If n Mod 2 Then Sheets("Sheet1").[k6] = T.Value Else Sheets("Sheet1").[k5] = T.Value
    End If
End If
End Sub'好熟悉的图片