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

我试图创build一小段代码，将移动一行到sheet2，如果：G <> M“或”I <> 0或L <> R

例如在我编制的表格中：

GILMOR 1 2 3 1 2 4 

所以这个特定的行将被移到表2中，其中一个语句被满足：L <> 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

假设GILMOR从列A开始。根据需要更改列引用。

 Sub SingleTradeMove() Dim wsTD as Worksheet Set wsTD = Worksheets("Trade data") Sheets("Sheet2").Range("A2:AK600").ClearContents With wsTD lastRow = .Range("A" & .Rows.Count).End(xlUp).Row For i = 2 To lastRow If .Cells(i, "J").Value = "" Or .Cells(i,"A") <> .Cells(i,"D") _ Or .Cells(i,"B") <> .Cells(i,"E") _ Or .Cells(i,"C") <> .Cells(i,"F") Then .Cells(i, "J").EntireRow.Copy _ Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next i End With End Sub