VBA for 循环到列表最后一个非空行

请问VBA 使用for 语句怎么表达循环到列表最后一个非空行，感谢！

【以下回答由 GPT 生成】

' 假设列表数据存储在名为"Sheet1"的工作表中的A列
Sub LoopThroughList()
    Dim lastRow As Long
    Dim i As Long

    ' 获取最后一个非空行的行号
    lastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

    ' 遍历列表
    For i = 1 To lastRow
        ' 在这里添加你想要执行的代码
        ' 比如输出每行的值到调试窗口
        Debug.Print Sheets("Sheet1").Cells(i, "A").Value
    Next i
End Sub

使用上述代码示例，可以通过循环遍历至列表中的最后一个非空行。首先，使用End(xlUp).Row来获取最后一个非空行的行号。然后，通过一个For循环从第一行到最后一行，依次访问每一行的值。在循环中，你可以添加你想要执行的代码，比如输出每行的值到调试窗口。请替换代码中的"Sheet1"为你实际的工作表名称，"A"为你实际的列名称。

【相关推荐】

• 这篇博客: vba 监听手动修改单元格后内容的变化，发生改变后将字体设为红色中的 一、最简单的处理 部分也许能够解决你的问题。

从后往前循环，找第一个非空行。
for i = len(列表) - 1 to 0 step -1
    if 列表(i) <> "" then
        ...
        exit for
next