Поиск и выбор нескольких ячеек в vba

Question

Я пытаюсь использовать userforum для поиска определенных ключевых слов и для выбора всех ячеек, содержащих эту информацию, и для копирования и вставки всей строки в другой лист. Пока я знаю только, как выбрать одну ячейку/строку за раз. Это то, что у меня есть до сих пор.

Private Sub CommandButton1_Click() 
    Cells.Find(What:=searchbox1.Text, After:=Range("A1"), LookIn:=xlFormulas, _ 
     LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:= True, SearchFormat:=False).Activate 
    ActiveCell.EntireRow.Select 
    Selection.Copy 
    sheets(2).activate 

Answer 1

Если вы не пытаетесь фильтровать через 100 тысяч строк, простой цикл будет выполнять ту же работу, что и поиск.

Адаптируйте этот код к своей книге, он проходит через диапазон, который вы хотите протестировать против своего textbox, и копирует каждое соответствие в выбранный вами диапазон.

Dim rng As Range 
    Dim destRng As Range 

    Set rng = Range("A1:A20") 

    For Each r In rng 
     If r.Value = searchbox1.Text Then 
     If Not destRng Is Nothing Then 
      Set destRng = Union(r.EntireRow, destRng) 
     Else 
      Set destRng = r.EntireRow 
     End If 
     End If 
    Next r 
     destRng.Copy sheets(2).Range("A1")