VBAでdo whileループを終了する方法

Question

Microsoft Excel VBAでdo whileループを終了できないため、コーディングに何が問題なのかを知りたいと思います。次の行が空白の場合はループ中にこれを終了します。

Do While Cells(RowName, 1) <> "" 
    Name = Cells(RowName, ColumnName) 
    MsgBox Name 
    RowName = RowName + 1 
Loop 

まだ私は初心者ですので教えてください。 MsgBoxはポップアウトしていて空白であっても終了しません。

Answer 1

"Exit Do" - このコマンドは、ループを停止したい場所で使用できます。あなたが列1の行RowNameが空白になっているが、あなたのアールが列ColumnNameにから名前を拾って、列1 できない場合があるので、1列目は、（その中にデータを持っていることかどうかをチェックする

Sub ExitDoSample 
    Dim rowname As Integer 
    Dim ColumnName As Integer 
    rowname = 1 
    ColumnName = 1 


    Do While Cells(RowName, 1) <> "" 

     Name = Cells(rowname, ColumnName).Value 
     If Name = "" Or IsEmpty(Name) Then 
      Exit Do 
     Else 
      MsgBox Name 
     End If 
     rowname = rowname + 1 
    Loop 
End Sub 

Answer 2

チェックは成功し、ループは続行されます）。 ColumnNameが空白なので、メッセージボックスに何も表示されないことがあります。 これが問題になりますか？

Answer 3

Sankar Balasubramanianの回答は非常に近いですが、いくつかの問題があります。ここで私はそれをやるでしょう。空でない場合はDo、空の文字列の場合はExit Doを行います。

Sub SampleEnding() 
    Dim ws As Worksheet: Set ws = ActiveSheet 
    Dim RowNum As Long: RowNum = 1 
    Dim ColNum As Long: ColNum = 3 
    Dim Name As String 

    Do While Not IsEmpty(ws.Cells(RowNum, 1)) 
     If Trim(ws.Cells(RowNum, 1).Value) <> "" Then 
      Name = ws.Cells(RowNum, ColNum) 
      MsgBox Name 
     Else 
      Exit Do 
     End If 
     RowNum = RowNum + 1 
    Loop 

End Sub 

ROWNUMは常にExcelが100万行以上を持っているとして、オーバーフローエラーを回避するために、ロングとして宣言する必要があります。

また、ワークシート変数を宣言して設定すると、より明確になります。非修飾範囲/セル参照は常に避けるべきです。