重复动作，还要修改哪里呢？

a76789789

Sub 宏1()
i = 3
3
For i = 1 To 15
i = i + 1
Next
    Range("Ni:Oi").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Ui").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
GoTo 3
End Sub

02761752696

确定你的代码，能起作用

02761752696

循环15次吗？这样试试

1. Sub 宏1()
   
2. For i = 1 To 15
   
3. 
   
4.     Range("N" & i & ":O" & i).Select
   
5.     Application.CutCopyMode = False
   
6.     Selection.Copy
   
7.     Range("Q2").Select
   
8.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
9.         :=False, Transpose:=False
   
10.     Range("R4").Select
    
11.     Application.CutCopyMode = False
    
12.     Selection.Copy
    
13.     Range("U" & i).Select
    
14.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
15.         :=False, Transpose:=False
    
16. Next
    
17. End Sub

复制代码