IfとDo Until Loop EXCEL VBA

Question

ここで間違っていることを誰かが助けてくれるならば、VBAの新機能です。 特定のテキストを探すようにループを実行しようとすると、ループが開始してから特定のポイントで停止します。 ループ私はそれが故に私のシートでここ

がコードである場合は終了せず、エラーブロックIFに直面している55 イム以下のいくつかの値をコピーするようなものである：

Private Sub CommandButton3_Click() 
For y = 1 To 15 Step 5 
Dim x As Double 
Dim a As Double 
x = 1 
a = 55 
If Cells(x, y).Value = "Text1" Then 
Do Until Cells(x, y).Value = "Text2" 
Cells(a, y) = Cells(x, y).Value 
Cells(a, y + 1) = Cells(x, y + 1) 
x = x + 1 
a = a + 1 


Loop 


End Sub 

Answer 1

：前方の方法は、あなたがいないnextとfor声明なしEnd Ifとifを持っています私はあなたが正しく理解している場合は、あなたが "Text2"を見つけるまで、列Aのセルをループし、最初の "Text1"を見つけてから行55以下にすべてのセルをコピーしたいと思う。あなたのコードをインデント場合は、2のエラーを見つけることができます

Private Sub CommandButton3_Click() 

Dim x As Long, y As Long 
Dim a As Long 
Dim LastRow As Long 

With Worksheets("Sheet1") '<-- modify "Sheet1" to your sheet's name 
    For y = 1 To 15 Step 5 

     x = 1 '<-- reset x and a (rows) inside the columns loop 
     a = 55 '<-- start pasting from row 55 

     LastRow = .Cells(.Rows.Count, y).End(xlUp).Row 
     While x <= LastRow '<-- loop until last row with data in Column y 
      If .Cells(x, y).Value Like "Text1" Then 
       Do Until .Cells(x, y).Value = "Text2" 
        .Cells(a, y).Value = .Cells(x, y).Value 
        .Cells(a, y + 1).Value = .Cells(x, y + 1).Value 
        x = x + 1 
        a = a + 1 
       Loop 
      End If 
      x = x + 1 
     Wend 
    Next y 
End With 

End Sub 

Answer 2

インデントがされると私が言及した問題に加えて

Private Sub CommandButton3_Click() 
    For y = 1 To 15 Step 5 
     Dim x As Double 
     Dim a As Double 
     x = 1 
     a = 55 
     If Cells(x, y).Value = "Text1" Then 
      Do Until Cells(x, y).Value = "Text2" 
       Cells(a, y) = Cells(x, y).Value 
       Cells(a, y + 1) = Cells(x, y + 1) 
       x = x + 1 
       a = a + 1 
      Loop 
     End If 
    Next y 
end sub