excel - 如果满足条件，如何复制和粘贴行 - 使用当前代码

Question

我想从我的主表中复制和粘贴行。我已经创建了这个 VBA

Private Sub CommandButton3_Click()
    a = Worksheets("Monthly VGT Report").Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To a
        If Worksheets("Monthly VGT Report").Cells(i, 2).Value = "531204" Then    
            Worksheets("Monthly VGT Report").Rows(i).Copy
            Worksheets("Store 1").Activate
            b = Worksheets("Store 1").Cells(Rows.Count, 1).End(xlUp).Row
            Worksheets("Store 1").Cells(b + 1, 1).Select
            ActiveSheet.Paste
            Worksheets("Monthly VGT Report").Activate
        End If
    Next
    
    Application.CutCopyMode = False
    
    ThisWorkbook.Worksheets("Monthly VGT Report").Cells(1, 1).Select
End Sub

然而，这项工作完美无缺，有没有一种方法可以让它只用一个活动的命令按钮复制多个搜索。现在我有 6 个按钮正在搜索不同的关键词。例如：If Worksheets("Monthly VGT Report").Cells(i, 2).Value = "531204" Then。

有没有办法在一个代码中搜索数字“531204”和“542376”？我正在搜索的数据在 B 列中，我的数据从 A 列开始。我想要复制整行 A1:H1。

标签： excelvbaconditional-statementscopy-paste