如果单元格不匹配，则将行移动到另一个工作表

Question

我正在尝试创建一小段代码，如果：G＆lt;＆gt; M“或”I＆lt;＆gt; 0或L＆lt;＆gt; R

，它会将一行移到sheet2

例如，在我的下表中：

G   I   L   M   O   R 
1   2   3   1   2   4

因此，当满足其中一个陈述时，此特定行将移至第二张：L＆lt;＆gt; R

到目前为止我有这个代码：

 Sub SingleTradeMove()
 lastRow = Sheets("Trade data").Range("A" & Rows.Count).End(xlUp).Row
 Sheets("Sheet2").Range("A2:AK600").ClearContents
 For i = 2 To lastRow
 If Sheets("Trade data").Cells(i, "J").Value = "" Then
 Sheets("Trade data").Cells(i, "J").EntireRow.Copy Destination:=Sheets
 ("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)

 End If
 Next i
 End Sub

Answer 1

假设{A}在A列中开始。根据需要更改列引用。

GILMOR