找到最後一行文字使用Do循環

Question

請原諒我的經驗不足，

我寫一個返回的最後一行返回collumn 1非空字符串用做循環的功能。

Answer 1

如果沒有空行，你可以簡單地像這樣的東西去：

Public Sub MySub() 

    Dim wsTarget As Worksheet 
    Set wsTarget = ActiveSheet 

    Dim n As Integer 
    n = 1 

    Do While (wsTarget.Cells(n +1, 1).Value <> "") 
     n = n + 1 
    Loop 

    n = n - 1 

    'n now contains the line number of the last non-empty row. 

End Sub 

編輯：對於這個例子，我想你是尋找到第一列，並且數據從第2行開始。如果沒有包含數據的行，則n將爲1.