Question

Excel中实现鼠标点击某一个单元格，其内容自动跳到另一个单元格内.点击一次数量1，点击两次数量为2

鼠标单击黄色区域，其内容自动复制到绿色单元格内。比如，我鼠标单击C5,其内容SASJ00044-01跳到L7.数量显示1.鼠标继续点击C5,则数量变为2. 鼠标继续点击E6，则SASJ72003-05跳到L8,数量显示1.
怎么实现这个功能，VBA?

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set s = Application.Intersect(Target, Range("C5:E17"))
  If Target.Count = 1 And Not (s Is Nothing) Then
   If Application.WorksheetFunction.CountIf(Range("L:L"), Target) > 0 Then
    r = Range("L:L").Find(Target).Row
     Cells(r, "N") = Cells(r, "N") + 1
     Else
     r1 = [l65536].End(xlUp).Row + 1
     Cells(r1, "L") = Target
     Cells(r1, "N") = 1
    End If
 End If
End Sub

Answer 2

这个必须VBA，基础功能里没有，函数也没有！