（検索語）が見つかった場合は、（操作）を実行します。そうでない場合は、終了する

Question

もしあなたが私を助けることができたら、それは本当に私を助けるだろうので、それは素晴らしいだろう。ここで

は私がやろうとしているものです：

1. 検索をセルに特定の用語を
2. 見つかった場合、セルがであることを行全体をコピーして、その上の行に貼り付けます。見つからない場合は
3. 、何もしないし、コード

を続けてここに私のコードです：

Sub Test() 
' 
' Test Macro 
' 
' Keyboard Shortcut: Ctrl+b 
' 

    Range("A5").Select 
    Cells.Find(What:="PL 1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 
    If Not IsEmpty(ActiveCell.Value) Then 
     ActiveCell.Rows("1:1").EntireRow.Select 
     Selection.Copy 
     Range("A5").Select 
     ActiveSheet.Paste 
    End If 
    Range("A5").Select 
    Cells.Find(What:="PL 2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 
    If Not IsEmpty(ActiveCell.Value) Then 
     ActiveCell.Rows("1:1").EntireRow.Select 
     Selection.Copy 
     Range("A6").Select 
     ActiveSheet.Paste 
    End If 
    Range("A5").Select 
    Cells.Find(What:="PL 3", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 
    If Not IsEmpty(ActiveCell.Value) Then 
     ActiveCell.Rows("1:1").EntireRow.Select 
     Selection.Copy 
     Range("A7").Select 
     ActiveSheet.Paste 
    End If 
End Sub 

私のコード値が検出された場合にのみ機能します。それが見つからないなら、それは以下のエラーに実行します：

Answer 1

Cells.Findを使用して（それがNothingではないことを意味する）の範囲は、実際に設定されたことを確認し、これを行うには、関数でありますRangeオブジェクト参照を返します。何も見つからない場合、参照はNothingになります。そして、あなたはNothingに.Activateを呼び出すことはできません。

この方法を一致が見つからない場合はNothingを返します。 Findメソッドは、選択またはアクティブなセルには影響しません。

Cells.Find(What:="PL 2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
    False, SearchFormat:=False).Activate 

（MSDN）

はあなたのコードを書き換えると .Selectと.Activateを回避し、あなたが持つ Cellsコールを限定しないことによって、やっている ActiveCellと暗黙的で ActiveSheet（での作業を回避する必要があります適切なワークシート参照）。

• 引数が
• ネストされたメンバーの呼び出しが上がらない
• 行継続は任意の場所にpalcedされている別の行に指定されている」：

  あなたの書式設定は難しいいくつかの理由のために、コードを読み取るようになります

  ：tはと比較

をラインアップ0

これは読みやすいです。問題は、基本的にがと仮定して、.Findが有効なオブジェクト参照を返すということです。 を明示的にチェックし、想定しないでください：

Set result = Cells.Find(...) 
If Not result Is Nothing Then result.Activate 

しかし、実際に、あなたは.Selectと.Activateを回避する方法を把握する必要があります。

Answer 2

あなたは（未テスト）の代わりにこのような何かを試すことができます。

Sub HideAndSeek() 

    Dim foundCell As Range 

    For i = 1 To 3 
     Set foundCell = Cells.Find(What:="PL " & i, LookIn:=xlFormulas, LookAt:=xlPart) 
     If Not foundCell Is Nothing Then 
      Intersect(foundCell.EntireRow, ActiveSheet.UsedRange).Offset(-1, 0).Value = _ 
       Intersect(foundCell.EntireRow, ActiveSheet.UsedRange).Value 
     End If 
     Set foundCell = Nothing 
    Next 

End Sub 

あなたが一度に必要なコードを書いた後、作成原則ビーイングあなたのためにコードを繰り返すループ。

この答えの他の部分は、細胞が見つかったことを確認している - 私たちは

If Not foundRange Is Nothing