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