Печать строк по критериям?

Question

Я немного новичок в Excel, но до сих пор я получил некоторые из формул. То, что я сделал, создано формулой countifs для поиска определенных критериев в столбцах. Однако то, что я хочу сделать, основывается на том, что я искал для использования countif, я хочу отображать строки, которые искали в отдельном листе. Например, если я просмотрел столбец A и обнаружил, что 3 строки в столбце A имеют в них слово «Hello», я бы хотел распечатать строки, в которых есть слово «Hello» в столбце A. Есть ли простой или автоматический способ сделать это? Я не хотел бы делать это вручную с помощью фильтров. Если бы кто-нибудь мог помочь, это было бы здорово! Благодаря!

В качестве примера строк и столбцов будет выглядеть следующим образом:

Animal Owner Phrase 
Cat  Jack  Hello 
Dog  Jill  Bye 
Elephant Henry Hello 

В этом случае я хотел бы использовать COUNTIFS искать «Привет», который будет отображать строки на отдельном листе.

Cat  Jack  Hello 
Elephant Henry Hello 

Если у кого-то есть предложения по тому, как это сделать, это было бы весьма признательно. Благодаря!

Answer 1

Почему бы не использовать встроенные фильтры в excel и отобразить только строки, соответствующие определенным критериям (или столбцы, где у вас есть счетчик> X, или каждый столбец), а затем распечатать это?

«Главная» ленты, панель «Редактирование, сортировка & фильтр

Answer 2

OK, если вы хотите сделать это в VBA:

Sub SortByCondition() 

Application.ScreenUpdating = False 

Dim i As Integer, r As Integer 
Dim rFirst As Integer, rLast As Integer 
Dim wSin As Worksheet, wSout As Worksheet ' I like to have variables when working on multiple sheets for clarity and ease of use 

Set wSin = Sheets("Raw") ' The sheet where you have unsorted data 
Set wSout = Sheets("Sorted") ' The sheet where you will copy the sorted data 

' This is to find the first and last row in your table... there are many other ways to do it 
With wSin.Cells(1, 1).CurrentRegion ' Replace with first cell in your table 
    rFirst = .Rows.Row + 1 ' Assumes the first line of your table is the header 
    rLast = .Rows.Count + .Rows.Row - 1 
End With 

r = 2 ' We'll start copy on row 2 in the output sheet 

For i = rFirst To rLast Step 1 

    If wSin.Cells(i, 3).Value = "Hello" Then ' I'm assuming we test for 'Hello' being in column C 

     Range(wSin.Cells(i, 1), wSin.Cells(i, 3)).Copy wSout.Cells(r, 1) ' We'll copy in columns A to C in the output sheet 
     r = r + 1 

    End If 

Next i 


Application.ScreenUpdating = True 

End Sub