用VBA实现鼠标单击复制excel单元格内容到剪贴板

今日，因工作需要重新拾起excel大量数据重复处理，尤其需要从单元格复制内容到剪贴板，懒虫犯，不想反复机械的去按复制，粘贴。

贴出代码，希望以后可以解决大家的问题，自己也做个收藏。


使用时放入活动工作表中的VBA下，鼠标选中单元格即可，免去了ctrl+C，要按两个按钮哇,能省一点是一点。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Value <> “” Then ‘非空点击

    Dim d As Object
        Set d = New DataObject
        strData = Target.Value
        d.SetText strData
    
        d.PutInClipboard
        Set d = Nothing

    End If
End Sub


欢迎引用