如何能做到单击即可复制单元格的问题

boatwxp · 发表于 2010-2-16 11:32

测试过是可以的！

随风吟唱 · 发表于 2010-2-16 12:36

刚刚又测试了下，怎么又行了呢，总算通过了，非常谢谢各位啊

junt7 · 发表于 2010-2-17 16:57

我是路人艮
····

往事随风1975 · 发表于 2022-8-12 16:55

boatwxp 发表于 2010-2-15 20:43
楼主将以下代码贴入工作表中试试
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ...

请教一下，我在您的代码上稍微做了一点修改，目的是通过点击，将所选单元格的值复制到指定位置，但是运行过程中会出现中断，麻烦您给看看。代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 100 Then Exit Sub
         i = 1
         While Cells(i, 2) <> ""
         i = i + 1
         Wend
         k = Cells(i, 2)
         Target.Copy Cells(i, 2)
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何能做到单击即可复制单元格的问题