Excel高手VBA录制宏将公式结果多行选择性粘贴

Question

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

最好解析一下

Answer 1

Sub aaa()
If [R27] = 0 Then Exit Sub
For i = 31 To 79
If Cells(i, 20) = [R27] Then
[U14:AB21].Copy
Cells(i, 21).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Application.CutCopyMode = False
End Sub

微调按钮指定这个宏

你好像提了2个问题
根据修改的代码

追问

怎么微调按钮指定这个宏,你上传一个EXCEL可以吧

追答

右键 你的微调按钮，指定宏
宏名 Sub aaa()

追问

不行提示公式太复杂,你过个EXCEL过来

追答

Sub aaa()
If [R27] = 0 Then Exit Sub '如果R27为0，就退出。
For i = 31 To 79 'R27数据在第31:79行
If Cells(i, 20) = [R27] Then '如果在 31:79 ，某行等于R27
[U14:AB21].Copy '就复制 U14：AB21
Cells(i, 21).Select '从第21列，也就是U列的某行开始粘贴
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Application.CutCopyMode = False
End Sub

上传不了表，留个邮箱

追问

现在可以了,道如何修改R27可以直接输入数字就把结果输出

追答

借用修改的代码！