excel vba 查找第三行最后一个不为空的列序号

在Excel VBA中查找第三行（假设为行3）最后一个非空单元格的列序号，你可以通过循环遍历所有列并检查每个单元格的值来实现。这里有一个简单的示例代码片段：

Sub FindLastNonEmptyColumn()
    Dim ws As Worksheet ' 假设工作表名为Sheet1
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你实际的工作表名称
    
    Dim lastRow As Long
    lastRow = 3 ' 要查找的行

    Dim lastColIndex As Long
    lastColIndex = 1 ' 初始列序号，从A列开始

    Do While ws.Cells(lastRow, lastColIndex).Value <> "" ' 只有当单元格值不为空时，继续搜索
        lastColIndex = lastColIndex + 1 ' 移动到下一根列
    Loop

    MsgBox "最后一列非空单元格的序号是：" & lastColIndex - 1 ' 减一是因为VBA索引是从1开始的
End Sub

运行这个宏后，它会返回第三行最后一个非空单元格所在的列数。如果你需要更改查找的行数，只需要修改`lastRow`变量即可。