根据特定列中的条件将行从一个工作表复制到另一个工作表

Question

我有3张纸（Sheet1，Sheet2，Sheet3），它们的数据格式相似，并且希望将这3张纸的M列中所有值为“ OK”的行复制到单个第4张纸上（Sheet4）。

Sheet1，Sheet2和Sheet3上的M列填充值为“ OK”或为空。

到目前为止，我已经知道了。

ThisWorkbook.Sheets("Sheet1").Activate

With Range("M1", Range("M" & Rows.Count).End(xlUp))
    .AutoFilter Field:=1, Criteria1:="=*" & OK & "*"
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).Cells.Copy

    Sheets("Sheet4").Activate
    DestinationRange.PasteSpecial

先谢谢了。