如何用VBA宏实现Excel指定条件行的筛选复制？附示例代码

输入示例 #

输出示例 #

实现VBA宏代码 #

Sub Macro3()
'
' Macro3 Macro
'
' 快捷键: Ctrl+t
'
j = 1
a = Worksheets("Allocation").Cells(Rows.Count, j).End(xlUp).Row

For i = 2 To a
  If Worksheets("Allocation").Cells(i, 2).Value > 0 Then
    Worksheets("Allocation").Rows(i).Copy
    Worksheets("Output").Activate
    b = Worksheets("Output").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Output").Cells(b + 1, 1).Select

    ActiveSheet.Paste
    Worksheets("Allocation").Activate

    j = j + 1
  End If
Next

Application.CutCopyMode = False
ThisWorkbook.Worksheets("Allocation").Cells(1, 1).Select

End Sub

功能说明 #

该宏可将Allocation工作表中第2列值大于0的行，复制到Output工作表中。

内容的提问来源于stack exchange，提问作者TARUN KUMAR