Возвращает целую строку данных, если ячейка в строке соответствует критерию

Question

У меня есть книга с двумя листами. Первый (лист 1) содержит много данных (~ 70 000 строк и столбцов A-G). Второй (лист 2) пуст.

Дело в том, что мне нужно скопировать всю строку данных из листа 1 в лист 2, если ячейка соответствует определенным критериям. Я постараюсь уточнить:

В листе 1 столбец B имеет несколько разных значений. Если значение в ячейке в столбце B равно 5 Mathias, мне нужно получить эту целую строку данных (столбцы AG), скопированную в Лист 2. Это было бы очень аккуратно, если это может привести к блоку данных в Листе 2, который выглядит так же, как Лист 1, за исключением факта, что все они имеют одно и то же значение в столбце B. Что было бы еще более холодным, если я могу добавить в ряд строк данных в нижней части Листа 1 каждый месяц, а затем листок 2 обновится.

Я пробовал с поиском до сих пор, но без реальной удачи.

Я надеюсь, что это возможно, и я объяснил это достойным образом!

Answer 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