アクティブセルの値に基づいて停止しないExcel VBAループ

Question

アクティブセルの値が "BBSE"のときに停止する必要のあるループがありますが、セルを通過してループを続行します。誰かが私を助けることができますか？ 1つのワークボック内のテーブルから行を切り取り、別のワークボックに貼り付けます。列Fのリストの前に私は多くの空白のセルがあり、そのために私はusind xldownです。ここ は、関連するコードです：私は赤い円の中にループを停止するのはここ

'Illuminators Worksheet 
OP_wb.Activate 
Range("F2").End(xlDown).Select 


Do Until ActiveCell.Value = "BBSE" 
    OP_wb.Activate 
    Worksheets("Optic Main").Activate 
    Range("F2").End(xlDown).Select 
    Selection.EntireRow.Cut 
    Demand_WB.Activate 
    Worksheets("Illuminators").Activate 
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select 
    ActiveSheet.Paste 


Loop 

は次のとおりです。

私はEND.xlDown

を使用しています理由です

Answer 1

私はあなたが正しく達成しようとしているものを理解していれば、私は次のようにそれを達成すると信じて：

Dim startRow As Long 
Dim endRow As Long 
With OP_wb.Worksheets("Optic Main") 
    startRow = .Range("F2").End(xlDown).Row 
    endRow = .Columns("F").Find(What:="BBSE", LookIn:=xlValues, LookAt:=xlWhole).Row 
    .Rows(startRow & ":" & endRow).Cut 
End With 
With Demand_WB.Worksheets("Illuminators") 
    .Range("A" & .Rows.Count).End(xlUp).Offset(1).Insert Shift:=xlDown 
End With 

Answer 2

このようにしてみてください...

'Mentioning Starting Row Here 
x = 2 

Do 
    'x refers to Row and F refer to column name 
    With Cells(x, "F") 
     'Exiting Do Loop once it finds the matching value using If statement 
     If .Value = "BBSE" Then Exit Do 
     OP_wb.Activate 
     Worksheets("Optic Main").Activate 
     .EntireRow.Cut 
     Demand_WB.Activate 
     Worksheets("Illuminators").Activate 
     Range("A" & Rows.Count).End(xlUp).Offset(1).Select 
     ActiveSheet.Paste 
    End With 
    'Incrementing row number here to move on to next row 
    x = x + 1 
Loop