如果行中的单元格符合条件，则返回整行数据答案

【问题标题】：Return a whole row of data if a cell in the row matches a criteria如果行中的单元格符合条件，则返回整行数据
【发布时间】：2015-03-26 16:58:41
【问题描述】：

我有一个有两张纸的工作簿。第一个（表 1）包含大量数据（约 70.000 行和 A-G 列）。第二个（表 2）是空的。

问题是，如果单元格符合特定条件，我需要将整行数据从工作表 1 复制到工作表 2。我会尽量具体：

在工作表 1 中，B 列有一些不同的值。如果 B 列中单元格中的值是 5 Mathias 我需要将整行数据（A-G 列）复制到表 2。如果这会导致表 2 中的数据块看起来就像表 1 一样，除了它们在 B 列中都共享相同的值。更酷的是，如果我可以每个月在表 1 的底部添加更多数据行，然后表 2 会自行更新。

到目前为止，我已经尝试过查找，但没有任何真正的运气。

我希望这是可能的，并且我已经以体面的方式解释了它！

【问题讨论】：

标签： vba excel lookup

【解决方案1】：

以下代码检查Sheet1 中的数据，然后根据列出的条件将数据移至Sheet2。让我知道您是否可以将其合并到您的工作簿中。

Sub CopyFromSheetToOther()
    Dim wsOrigin As Worksheet
    Dim wsDest As Worksheet
    Dim rngData As Range

    Const CRITERIA As String = "Matt"

    Set wsOrigin = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet2")
    wsDest.Cells.ClearContents
    Set rngData = wsOrigin.Range("A1").CurrentRegion

    rngData.AutoFilter field:=2, Criteria1:=CRITERIA
    rngData.Copy wsDest.Range("A1")

    wsOrigin.AutoFilterMode = False

End Sub

【讨论】：