[已解决]高难度的"快速复制问题"求教vba大师

qhllqhll

求教vba大师"快速复制问题"
要求:
双击工作表2里的 b 列内任意一个非空单元格, 便自动把该单元格里的内容 , 以数值的格式复制并粘贴到,  工作表1 的a列 最后一个空单元个里.
请问能否作到?
恳请赐教代码
非常感谢!!

最佳答案

月排行榜 / 总排行榜

adders

2011-12-13 05:39

qhllqhll 发表于 2011-12-10 23:41
求助:双击粘贴问题
请问大师:如果我双击a列的任意一个空单元格 , 则自动把e2里的内容 以数值的格式粘贴过 ...

Setup worksheet before double click event

Book2.zip (6.88 KB, 下载次数: 9)

2011-12-13 05:39 上传

点击文件名下载附件

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim rng As Range
Set rng = Intersect(Range("A1:A" & Rows.Count), Target)

If Not rng Is Nothing Then
    If rng.Value = "" Then
        rng.Value = Range("E2").Value
    Else
    Exit Sub
    End If
End If

Set rng = Nothing

End Sub

跳转到最佳答案楼层

zsx720629

这个完全可以做到，请上传附件

qhllqhll

zsx720629 发表于 2011-12-11 11:09
这个完全可以做到，请上传附件

恳请大师赐教教一个完整的vba代码
非常感谢

lisachen

Book1.rar (8.13 KB, 下载次数: 13)

2011-12-11 11:15 上传

点击文件名下载附件

qhllqhll

lisachen 发表于 2011-12-11 11:15

非常感谢 版主大师

菜鸟锐

vb不会，进来学习一下

qhllqhll

lisachen 发表于 2011-12-11 11:15

求助:双击粘贴问题
请问大师:如果我双击a列的任意一个空单元格 , 则自动把e2里的内容 以数值的格式粘贴过来
谢谢

adders

qhllqhll 发表于 2011-12-10 23:41
求助:双击粘贴问题
请问大师:如果我双击a列的任意一个空单元格 , 则自动把e2里的内容 以数值的格式粘贴过 ...

Setup worksheet before double click event

Book2.zip (6.88 KB, 下载次数: 9)

2011-12-13 05:39 上传

点击文件名下载附件

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim rng As Range
Set rng = Intersect(Range("A1:A" & Rows.Count), Target)

If Not rng Is Nothing Then
    If rng.Value = "" Then
        rng.Value = Range("E2").Value
    Else
    Exit Sub
    End If
End If

Set rng = Nothing

End Sub

开心萝卜惠州

学习工作表事件。