VBA：退出For循環當行空

Question

我用下面的代碼行導出到單獨的文本文件：

Sub export_Test() 

Dim firstRow As Integer, lastRow As Integer, fileName As String 
Dim myRow As Integer, myStr As String 

firstRow = 10 
lastRow = 29 

For myRow = firstRow To lastRow 

    fileName = "C:\mallet\test\" & Cells(myRow, 1) & ".txt" 
    Open fileName For Append As #1 
    myStr = Cells(myRow, 2).Value 
    Print #1, myStr 
    Close #1 
Next 

End Sub 

的問題是，這個代碼是特定的行數。我想用這個代碼來處理不同的數據樣本，因此excel文件中的行數會有所不同，並且可能會有數千個數。我需要將lastRow變量設置爲無限數字，並在For循環遇到空行時退出。

Answer 1

此代碼將在第10行啓動和運行，直到它在第二列中找到一個空白單元格。請注意，我也縮短你的代碼位（雖然它仍然不相同寫入到文件）：

Sub export_Test() 
    Dim myRow As Long 
    myRow = 10 
    While Cells(myRow, 2).Value <> "" 
     Open "C:\mallet\test\" & Cells(myRow, 1) & ".txt" For Append As #1 
     Print #1, Cells(myRow, 2).Value 
     Close #1 
     myRow = myRow + 1 
    Wend 
End Sub 

Answer 2

這是我的一個項目不正是你想要的是什麼代碼 - 結束與空值

Sub export_Test() 

Dim firstRow As Integer, lastRow As Integer, fileName As String 
Dim myRow As Integer, myStr As String 

    firstRow = 10 
    myRow = firstRow 

    ' Seed initial value 
    Cells(myRow, 1).Select 

    ' Keep going until a blank cell is found 
    While Trim(ActiveCell.Value) <> "" 

     fileName = "C:\mallet\test\" & ActiveCell.Value & ".txt" 

     Open fileName For Append As #1 

     myStr = Cells(myRow, 2).Value 
     Print #1, myStr 
     Close #1 

     ' Get the next value  
     myRow = myRow + 1 
     Cells(myRow, NameCol).Select 
    Wend 

End Sub