请老师帮我设置个复制粘贴的按钮，谢谢

jianxia168

就是设置一个按钮，点击后自动把某个单元格的公式复制后，以数值的形式粘贴到另一个单元格，我对宏一点都不懂，不知能否实现？
求助表.rar (30.1 KB, 下载次数: 8)

2018-6-9 09:08 上传

点击文件名下载附件

杏花村牧人

试试吧。。。。。附件里有

jianxia168

杏花村牧人 发表于 2018-6-9 09:39
试试吧。。。。。附件里有

谢谢老师，我试过了，非常好用，真心感谢你的帮助，谢谢

jianxia168

杏花村牧人 发表于 2018-6-9 09:39
试试吧。。。。。附件里有

老师你好，

下面这个是你给我写的，是先复制公式然后以数值的形式粘贴的，
麻烦老师你给我改成：先复制公式然后还是以公式的形式粘贴好吗，谢谢，麻烦你了



Sub 数值粘贴()
'
' copy 宏
'

'
    Range("BM3:CE3").Select
    Selection.copy
    Range("BM1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BM3").Select
End Sub

lsc900707

jianxia168 发表于 2018-6-18 21:08
老师你好，

下面这个是你给我写的，是先复制公式然后以数值的形式粘贴的，

1. Sub gj23w98()
   
2.     [bm3:ce3].Copy [bm1]
   
3. End Sub

复制代码

lsc900707

参考附件：

jianxia168

lsc900707 发表于 2018-6-18 23:41
参考附件：

太好了   真心感谢老师的帮助  谢谢你

jianxia168

lsc900707 发表于 2018-6-18 23:41
参考附件：

还有最后一个问题麻烦老师帮帮我，是复制公式后在以数值的形式粘贴在原单元格中的问题  ，麻烦老师给我写在附近里，谢谢
求助表.rar (46.6 KB, 下载次数: 1)

2018-6-19 10:29 上传

点击文件名下载附件

lsc900707

jianxia168 发表于 2018-6-19 10:29
还有最后一个问题麻烦老师帮帮我，是复制公式后在以数值的形式粘贴在原单元格中的问题  ，麻烦老师给我写 ...

附件供参考：

jianxia168

lsc900707 发表于 2018-6-19 11:21
附件供参考：

老师，不是那个，是另一个，我照葫芦画了半天也没画出瓢，还得麻烦老师给我看看，
点此按钮一键完成
自动复制DW247:DW366处公式和BL247:BL366处公式，然后选择数值分别粘贴到原处（BW247:DW366和BL247:BL366处）