Question

我有下面的代码运行良好，但我想要做的是修改代码以复制它将清除到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

将一系列单元格从一个工作表复制并粘贴到另一个工作表，然后从原始单元格中清除数据

1 个答案: