Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Copy
Cancel = True
End Sub
但单元格的格式等都被复制到了,粘贴是要进行选择性粘贴-数值或公式选项。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Copy
End Sub
学习类似功能,可通过录制宏,再打开宏学习。
.........