マクロブック内のすべてのシートをループし、セルに一定の値があるかどうかをテストします。場合は、シートをコピーしてループを終了

Question

Dim j As Double 
For j = 1 To Worksheets.Count 
     If Sheets(j).Range("E4").Value Like "Filters" Then 
      ActiveSheet.Copy before:=Worksheets(1) 
       ActiveSheet.Name = "data" 
     End If 
Next j 

これは私のコードです...私はコードワークシートを実行すると "データ"として作成されますが、ループを終了していない...それは "データ "ワークシートとデバッグを取得しています。私は非常に小さなものを紛失しています。私はそれが何であるかわかりません。誰でも助けることができます。

Answer 1

シートがコピーされたらループを止めることが問題ならば、これに：

Dim j As Double 
For j = 1 To Worksheets.Count 
     If Sheets(j).Range("E4").Value Like "Filters" Then 
      ActiveSheet.Copy before:=Worksheets(1) 
       ActiveSheet.Name = "data" 
       Exit For 'Or could be Exit Sub? 
     End If 
Next j 

Answer 2

考えてみましょう：

Sub poiuyt() 
Dim j As Long 
For j = 1 To Worksheets.Count 
    With Sheets(j) 
     If .Range("E4").Value Like "Filters" Then 
      .Copy before:=Worksheets(1) 
      .Name = "data" 
      Exit Sub 
     End If 
    End With 
Next j 
End Sub