创建一个宏以根据条件将多行数据从一个工作表复制到另一个工作表答案

【问题标题】：create a macro to copy multiple rows of data from one sheet to another based on a criteria创建一个宏以根据条件将多行数据从一个工作表复制到另一个工作表
【发布时间】：2013-06-25 16:47:50
【问题描述】：

我正在尝试编写一个宏，它允许我根据要复制的列之前的列中的条件将一系列数据从一个工作表复制到另一个工作表。

B 列是标准列。如果此列中的任何行中有 1，则将从有 1 的那一行复制 C 到 AN 列，并从该表顶部开始粘贴到另一张表中。

我有以下代码。它找到满足条件的第一行并将该行复制到第二张工作表，但是代码不会循环查找满足条件的其他行。如何调整代码以循环和复制满足条件的每个实例？

Sub testIt()

Dim i As Integer

    Application.ScreenUpdating = False

    Sheets("DataDump").Activate

    For i = 2 To Range("B2").End(xlDown).Row()
        If Range("B" & i).Value = 1 Then
            Range("C" & i, "AN" & i).Copy
            Sheets("PriceData").Activate
            ActiveSheet.Range("B2", "AM2").Select
            ActiveSheet.Paste
        End If
    Next i

    Application.ScreenUpdating = True

End Sub

【问题讨论】：

标签： vba loops criteria copy-paste

【解决方案1】：

Sub testIt()

Dim i As Long, shtSrc As Worksheet, rngDest As Range

    Application.ScreenUpdating = False

    Set shtSrc = Sheets("DataDump")
    Set rngDest = Sheets("PriceData").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

    For i = 2 To shtSrc.Range("B2").End(xlDown).Row
        If shtSrc.Range("B" & i).Value = 1 Then
            shtSrc.Range("C" & i & ":AN" & i).Copy rngDest
            Set rngDest = rngDest.Offset(1, 0)
        End If
    Next i

    Application.ScreenUpdating = True

End Sub

【讨论】：