VBAコード、特定の列のセルは、私は、次のためのVBAコードを必要

Question

異なるシート上に行全体をカットアンドペーストする必要のある特定の単語を含む場合：

特定の列のセルが含まれている場合特定の単語、私はカットし、別のシートに行全体を貼り付ける必要があります。私はいくつかのコードを見つけましたが、宛先シートの行と一致します。私は別のシートに移動し、ソースから削除する必要があります。

親切に助言できますか？あなたの「列」は、あなたは、次のコードにつきとしてAutoFilter()を使用することができ、その最初のセルなどのヘッダを持っている場合

Answer 1

Sub main() 
    With Worksheets("mySheetName") '<--| reference the worksheet with data (change "mySheetName" to your actual worksheet with data name 
     With .Range("A1", .Cells(.Rows.count, "A").End(xlUp)) '<--| reference its "column" (change "A" occurrences to your actual column with data index) 
      .AutoFilter Field:=1, Criteria1:="d" '<--| change "word" to your actual word to be looked for 
      If Application.WorksheetFunction.Subtotal(103, .Cells) > 1 Then 
       With .Resize(.Rows.count - 1).Offset(1).SpecialCells(xlCellTypeVisible) 
        .Copy Worksheets("myOtherSheetName").Range("A1") 
        Application.DisplayAlerts = False 
        .SpecialCells(xlCellTypeVisible).Delete 
        Application.DisplayAlerts = True 
       End With 
      End If 
      .AutoFilterMode = False 
     End With 
    End With 
End Sub