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