[已解决]用VBA实现快速的复制粘贴数值

mate66

用VBA实现快速的复制粘贴数值，只要求粘贴数值。

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2017-10-30 12:53

mate66 发表于 2017-10-29 22:49
效果对，但右击不好操作。

不自动就添加个按钮来实现呀

1. Sub 按钮1_Click()
   
2.     ActiveCell.Resize(2, 10).Copy [ba20]
   
3.     ActiveCell.Offset(2).Resize(2, 10).Copy [ba27]
   
4.     ActiveCell.Offset(4).Resize(2, 10).Copy [ba34]
   
5. End Sub

复制代码

跳转到最佳答案楼层

mate66

顶一下，看看有没老师解答。

高

右击触发程序行不行

mate66

高 发表于 2017-10-29 22:39
右击触发程序行不行

效果对，但右击不好操作。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Application.EnableEvents = False
        Target.Resize(2, 10).Copy [ba20]
        Target.Offset(2).Resize(2, 10).Copy [ba27]
        Target.Offset(4).Resize(2, 10).Copy [ba34]
        Application.EnableEvents = True
End Sub



这是另一老师的代码。 能否在这个代码上改为：1.不自动的，自己选择单元格再运行代码得到结果。2.粘贴数值。

高

这个更不好操作，单元格选取改变就触发了。改数值是很好改的，自动的问题改不了。你想点复制才运行？那就不好办了。如果用按自定义快捷键倒是简单。

mate66

高 发表于 2017-10-29 23:27
这个更不好操作，单元格选取改变就触发了。改数值是很好改的，自动的问题改不了。你想点复制才运行？那就不 ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Application.EnableEvents = False
        Target.Resize(2, 10).Copy [ba20]
        Target.Offset(2).Resize(2, 10).Copy [ba27]
        Target.Offset(4).Resize(2, 10).Copy [ba34]
        Application.EnableEvents = True
End Sub


老师，把这个代码改为粘贴数值就可以。麻烦老师改下

高

你要这样的？这是选取单元格就复制粘贴的，你要不要选取10列6行才触发的？

mate66

高 发表于 2017-10-30 08:09
你要这样的？这是选取单元格就复制粘贴的，你要不要选取10列6行才触发的？

不要自动的意思就是：不是点击就自动运行代码。再通俗点就是改为用一个按钮，点一下按钮再运行代码。

高

按钮的简单多了，你可以只选一个单元格就点按钮，也可以选一个区域再点按钮

fjmxwrs

mate66 发表于 2017-10-29 22:49
效果对，但右击不好操作。

不自动就添加个按钮来实现呀

1. Sub 按钮1_Click()
   
2.     ActiveCell.Resize(2, 10).Copy [ba20]
   
3.     ActiveCell.Offset(2).Resize(2, 10).Copy [ba27]
   
4.     ActiveCell.Offset(4).Resize(2, 10).Copy [ba34]
   
5. End Sub

复制代码