EXCEL VBA鼠标动作问题，请高手来帮忙！

我想，你的第一个点击的单元格日期，应该是在同一列的，如果是这样，不妨用单元格Change事件来做。

Sub 序号() Dim rng As Range, i%, k% k = 1 For Each rng In Selection r = rng.Row If Rows(r & ":" & r).Hidden = False Then rng.Offset(, 1) = k k = k + 1 End If NextEnd Sub

有点意思，做了个

Option Explicit
Dim strPre, s As String
Dim lastrange As String
Dim lCount As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '第一次改变所选的单元格
    If strPre <> ThisWorkbook.str And Not (lCount > 0) Then
        lastrange = ThisWorkbook.str
    Else
        lastrange = strPre
    End If
    GetPreAddress Target.Address
      If Target.Column = 2 Then
      If lastrange = Target.Offset(0, -1).Address Then s = Format(Target.Offset(0, -1), "ddmmm") & "/" & Target
      End If
     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText s
        .PutInClipboard
     End With
End Sub

Sub GetPreAddress(strPreA As String)
    strPre = strPreA
    lCount = lCount + 1
End Sub

Thisworkbook:

Option Explicit
Public str As String

Private Sub Workbook_Open()
    str = ActiveCell.Address
End Sub

    Dim cel As Range, tempStr As String

    Dim i As Integer

    i = 1

    For Each cel In Selection

        If i = 1 Then tempStr = tempStr & Format(cel, "ddmmm")

        If i = 2 Then tempStr = tempStr & "/" & cel

        i = i + 1

    Next