[已解决]关于跨表自动复制的问题

千里马彩票

点击复制问题.rar (13.52 KB, 下载次数: 9)

2016-2-15 13:45 上传

点击文件名下载附件

如附件，求教，如何实现点击表1里的复制，会自动将表二对应的一列中的有效数据复制到剪贴板？


注：感谢 爱疯 已经大部分代码写好，现在只需实现跨表问题。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-2-15 16:09

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r, c
    r = Target.Row: c = Target.Column
    If r = 1 And Target.Count = 1 Then
        With Sheets(2)
            .Range(.Cells(2, c), .Cells(2, c).End(xlDown)).Copy
        End With
    End If
End Sub

点击复制问题4.rar (14.26 KB, 下载次数: 17)

2016-2-15 16:09 上传

点击文件名下载附件



这样吗？

跳转到最佳答案楼层

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r, c
    r = Target.Row: c = Target.Column
    If r = 1 And Target.Count = 1 Then
        With Sheets(2)
            .Range(.Cells(2, c), .Cells(2, c).End(xlDown)).Copy
        End With
    End If
End Sub

点击复制问题4.rar (14.26 KB, 下载次数: 17)

2016-2-15 16:09 上传

点击文件名下载附件



这样吗？

千里马彩票

不好意思，中k4病毒了，什么也测试不了，不知道效果对不对

千里马彩票

我这里点击了，不复制呢？

爱疯

点1次，剪贴板里就多了1个，不是这样么？