用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


欢迎引用


文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Excel VBA COPY cells To Clipboard 工具 脚本
相关日志:
评论: 0 | 引用: 0 | 查看次数: 470
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭