关于Excel vba 鼠标事件 记录鼠标点击单元格的内容

可以使用VBA事件完成该操作。

• alt+F11

• 打开VBA编辑器

• 复制粘贴如下代码

• 回到sheet界面操作即可

如下代码将选择的内容不断的复制到H列。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Endrow As Single
Dim myTarget As Range
Endrow = Cells(65525, 8).End(xlUp).Row
Application.EnableEvents = False
Set myTarget = Target
    myTarget.Copy
    Cells(Endrow + 1, 8).Select
    ActiveSheet.Paste
    Application.EnableEvents = True
End Sub

用VBA，在这个事件Worksheet_SelectionChange 中写代码可以实现

请看你提的另一个问题的追答。

1. 打开Excel

2. Alt+F11（打开VBA编辑器）

3. 输入如下代码即可实现你所需的功能。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 Then

    Target.Offset(0, 1) = Target.Value

    Target.Offset(0, 1).Select '保证下次选择A列单元格是能激活该过程。

End If

End Sub