vba do whileループは終了ループを終了しません

Question

私はこれをdo whileループから抜け出す方法を見つけようとしています。アイデアは、私が探していたものを見つけた最初のセルをコピーして、それを参照としてループを破るために使用するためにa1に貼り付けることでした...しかしそれは機能しません。

Range("A1").Select 
    Cells.Find(What:="pdl", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
     xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
     , SearchFormat:=False).Activate 
    Dim x As String 
    ActiveCell.Select 
    Selection.Copy 
    Range("A1").Select 
    ActiveSheet.Paste 
    Cells.FindNext(After:=ActiveCell).Activate 

    Do While True 
     ActiveCell.Select 
     If ActiveCell.Address = Range("a1") Then 
      Exit Do 
     Else 
      Selection.Copy 
      ActiveCell.Offset(0, 1).Select 
      ActiveSheet.Paste 
      Cells.FindNext(After:=ActiveCell).Activate 
     End If 
    Loop 

End Sub 

出口からループするだけです。

Answer 1

If ActiveCell.Address = Range("a1") Then 
     Exit Do 
    Else 

Activecell.Addressは決して=範囲（「A1」）（まあ、それはしかし、あなたは「$ A $ 1」を読み取るために、セルA1にテキストが必要になる可能性が

あなたはどうかテストしたい場合

If ActiveCell.Address = "$A$1" Then 
     Exit Do 
    Else 

またはこの

If ActiveCell.Address = Range("A1").Address Then 
     Exit Do 
    Else 

私はしかし、いくつかの再を行うことをお勧めします：ActiveCellのは、セルA1は、あなたがこれを行うことができますです実行時にそれらを使用するのに非常に時間がかかるので、選択と選択を使用せずにマクロを構築する方法を検索します。