Question

excel怎么实现单击一键复制单元格内容

baidudfj@126.com 这样的内容。怎么点一下左键就复制>? 最好请给出VBA代码
主要是不想按CTRL+C 太累。
再看下我这样用VBA是对的么？如图

Answer 1

双击复制单元格内容VBA代码：

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target = "" Then Exit Sub
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
  .SetText Target.Value
  .PutInClipboard
End With
Cancel = True
End Sub

Answer 2

点击鼠标时，你想复制那些单元格，到哪里？

追问

复制到系统剪贴板上。 粘在网页表单用

追答

鼠标右击表名 》 查看代码，粘贴下面的代码进去：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Copy
End Sub

鼠标点击任何单元格或拖动选取单元格范围，都会自动执行复制动作，随便你到哪里粘贴都可以。