VBA宏-根据单元格值从下面复制部分行

Question

我真的是VBA的新手，试图弄清楚如何创建一个循环，以便当A列中的值为“ 1”时，将紧接在下一行的E到N列的值复制到上一行（无需插入新行，只需粘贴现有值即可）。 我已经看过课程书和数十个Excel论坛，看不到这样做的方法吗？ 可能吗？

谢谢亚当

Answer 1

这样的事情应该工作

Sub test()
   Dim n as Integer
   Dim i As Integer
   n = 100
   For i = 1 To n
       If CInt(Range("a" & i)) = 1 Then
           Range("e" & i + 1 & ":n" & i + 1).Copy
           Range("e" & i).PasteSpecial xlPasteValues
       End If
   Next i

   Application.CutCopyMode = False
End Sub