切り取り用VBA特定のキーワードのデータ

Question

特定のキーワードに対してA1：D10000から切り取りデータが必要です。例 "Release Date：\ n"の文字列がある場合は、F列の対応するセルに&のペーストが挿入されます。 任意の文字列がでている場合は、私が意味する、「発売日：\ n」はC21で、それは、私はそれがうまく動作するコード&を持つF21

で&ペーストをカットされます。しかし問題は、私が予想していたよりも完了するのに巨大な時間が必要なことです。すぐに実行されるような優れたコードですか？

マイコード：

サブMacro87（）

For Repeat = 1 To 10000 
Dim found As Range 
Sheets("part15").Select 
Range("A1").Select 
Columns("A:D").EntireColumn.Select 
Set found = Selection.Find(What:="Release Date:\n ", After:=ActiveCell, LookIn:= _ 
    xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _ 
    , MatchCase:=False, SearchFormat:=False) 

If Not found Is Nothing Then 
found.Select 
ActiveCell.Select 
Selection.Cut 
Range("F" & (ActiveCell.Row)).Select 
ActiveSheet.Paste 
Set found = Nothing 
End If 
Next 

End Sub 

Answer 1

Daveが述べたように、多くの速度低下は、コード内の繰り返し選択されたステートメントから生じることになります。 VBAは通常、その中のデータを処理するために範囲を選択する必要はありません。以下は、あなたのために物事をスピードアップするはずです。それは瞬時に私のために動作します：

Sub Macro87() 
    Set Rng = Range("A1:D10000") 
    For Each cel In Rng 
     If InStr(1, cel.Value, "Release Date:\n ") > 0 Then 
      Cells(cel.Row(), 6) = cel.Value 
      cel.Value = Empty 
     End If 
    Next cel 
End Sub 

Answer 2

まず、1〜10,000に行く停止 - あなたはそんなにあなたの代わりに.FindNext使用することができたときにアクションを繰り返す必要はありません。第二に、ペストのように.Selectの使用を避けてください。