Excel 2007 VBA代碼，如果滿足單個條件，則將行從工作表1復制到工作表2

Question

我有一個工作表（'CSVin'），其中包含銷售訂單數據行（從第2行到第101行）。 如果“數量”列（列“ C”）大於0，我想將整行復制到另一個工作表（“ CSVout”），從第2行開始。因此，CSVin中有100行數據，但是（例如），可能只有12行的“數量”大於0，並且這12行需要復制到CSVout。

任何幫助將不勝感激。

我已經看過很多代碼，但是它們不符合我的需要，而且由於我沒有太多的VBA經驗，所以我似乎無法正確地修改它們。

Answer 1

您需要以下代碼。 請查看並告知我是否可以將其合並到工作表中：

Sub SendToSheet2()
    Dim wsIn As Worksheet
    Dim wsOut As Worksheet
    Dim rngToCopy As Range

    Set wsIn = Worksheets("CSVin")
    Set wsOut = Worksheets("CSVOut")
    Set rngToCopy = wsIn.Range("A1").CurrentRegion

    wsOut.Cells.ClearContents

    rngToCopy.AutoFilter field:=3, Criteria1:=">0"

    rngToCopy.SpecialCells(xlCellTypeVisible).Copy wsOut.Range("A1")

    wsIn.AutoFilterMode = False
End Sub