EXCEL高手解决宏VBA自动将结果复制后选择性粘贴到指定置

Question

只有http://pan.baidu.com/s/1o63GEBg

最好解析一下

Answer 1

可以用公式解决。
先将选项中“自动重算”选中，“最多迭代次数”设为1次。
然后在M26输入公式：
=IF($C$25=$L26,D$23,M26)
将公式向右向下复制。
再通过按钮依次改变C25的值即可。

追问

你的方法也可以实现，但更想知道用VBA

Answer 2

Sub 按钮6_单击复制并选择性粘贴()
'
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

追问

完全不行你将EXCEL传过来好吧

追答

才看到原来有个附件1
请将下面的话再解释一下：
EXCEL高手解决宏VBA自动将结果复制后选择性粘贴到指定置,(例如当G25=P26时,将H23:O23复制，右键--选择性粘贴--数值到Q26:X26),G25数值可以变动(由按钮控制)，如此类似将每次H23:O23新结果自动复制选择性粘贴到右下方编号1至6指定位置,手工复制粘贴太麻烦一共做6次，VBA宏如何解决

追问

对不起打错，正确http://pan.baidu.com/s/1mgGCaXq
EXCEL高手解决宏VBA自动将结果复制后选择性粘贴到指定置,(例如当C25=L26时,将D23:K23复制，右键--选择性粘贴--数值到M26:T26),C25数值可以变动(由按钮控制)，如此类似将每次D23:K23新结果自动复制选择性粘贴到右下方编号1至6指定位置,手工复制粘贴太麻烦一共做6次，VBA宏如何解决

追答

我做好了，发给你
Sub 按钮1_单击()
'
' 宏由 zcz 制作，时间: 2014-12-15

'
Range("D2").Select
Selection.Copy
ActiveSheet.Range("b1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

追问

你发EXCEL过来上面一楼公式可以实现，但更想知道VBA如何做

追答

真他妈费劲，我先上传到网盘才转到这儿的

本回答被提问者采纳