複製粘貼，刪除等基於整個行，如果A列有「XYZ」

Question

我期待複製粘貼和刪除基於一個整行，如果A列有「XYZ」 即：如果A1 =「XYZ」，然後複製粘貼（a1：g1）插入下一空白行並刪除第1：1行。

Answer 1

自定義排序的地方xyz畢竟可能是更好的解決方案。如果您需要複製/粘貼/刪除然後記住，它始終是最好刪除行何時開始在底部並在For ... Next循環工作了。

Dim r As Long, lr As Long 
With ActiveSheet 
    lr = .Cells(Rows.count, 1).End(xlUp).Row 
    For r = lr To 1 Step -1 
     If LCase(.Cells(r, 1)) = "abc" Then 
      .Cells(r, 1).Resize(1, .Cells(r, Columns.count).End(xlToLeft).Column).Copy _ 
       Destination:=.Cells(Rows.count, 1).End(xlUp).Offset(1, 0) 
      .Rows(r).Delete 
     End If 
    Next r 
End With