excel VBAでキーワードを含むセルを見つける

Question

データベースの列を検索し、特定のキーワードを含むすべてのセルを別のタブに返すマクロを作成したいと考えています。言い換えれば、単語が値の真ん中にあっても（たとえば、「ビルダーが昨日ハンマーを買った」など）、「ハンマー」と入力して単語「ハンマー」を含むすべてのセルのリストを取得したいとします。

私はVBAにはかなり新しいので、これを行うためにどのような機能を使用するかを入力してください。私はAdvancedFilterを使用しようとしましたが、それは各セル値の最初の部分だけを見ています。すべてのフィードバックは歓迎です、ありがとう！

Answer 1

使用、それは "検索されないように探索範囲（この例では「A1」）の最初のセルは、ヘッダセルであると仮定Rangeオブジェクト

Sub main() 
    With Worksheets("hammer") '<--| reference searched worksheet (change "hammer" to its actual name) 
     With .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) '<--| reference its column "A" cells from row 1 down to last non empty one (change "A"s to your actual searched column index) 
      .AutoFilter Field:=1, Criteria1:="*hammer*" '<--| filter on referenced column to get cell containing "hammer" 
      If Application.WorksheetFunction.Subtotal(103, .Cells) > 1 Then .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("different tab").Range("A1") '<--| copy any filtered cell into "different tab" worksheet 
     End With 
     .AutoFilterMode = False '<--| show all rows back 
    End With 
End Sub 

のAutofilter()方法*ハンマー"。