使用Do循环查找带文本的最后一行

Question

请原谅我的缺乏经验，

我要编写一个函数，它返回使用do循环在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。