将一个单元格的范围复制并粘贴到另一个单元格，然后清除信号单元格中的数据

我有下面的代码，运行良好，但是我想要做的就是修改代码，将它将清除的数据复制到Sheet2，以便进一步调查从原始工作表继续清除。 所有的代码本身所做的就是看G和H.如果H比G小，它就会清除A：J的内容。 我现在想要的是仍然清除内容，如果满足条件但是我想复制到Sheet2的单元格的副本。

Sub ClearRange() Dim myLastRow As Long Dim i As Long Application.ScreenUpdating = False ' Find last row myLastRow = Cells(Rows.Count, "G").End(xlUp).Row ' Loop through range For i = 5 To myLastRow If Cells(i, "H").Value < Cells(i, "G").Value Then Range(Cells(i, "A"), Cells(i, "J")).ClearContents Next i Application.ScreenUpdating = True End Sub 

预先感谢您提供的任何帮助。

Answer 1

您可以只更新这部分代码：

 ' Loop through range For i = 5 To myLastRow If Cells(i, "H").Value < Cells(i, "G").Value Then With Range(Cells(i, "A"), Cells(i, "J")) .Copy Sheets("Sheet2").Paste Destination:=Sheets("Sheet2").Range("A" & i) .ClearContents End With End If Next