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

在Excel VBA中，你可以使用`Find`函数配合循环来查找第三行（假设是从第一行开始计数）最后一个非空单元格的列序号。这里是一个简单的示例：

Sub FindLastNonEmptyCell()
    Dim ws As Worksheet ' 工作表对象
    Dim lastRow As Long, lastCol As Long ' 存储最后非空单元格的位置
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 确定你要操作的工作表
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号（包括该行）

    If lastRow >= 4 Then ' 如果有第三行，因为索引从1开始，所以判断条件是大于等于4
        For col = 1 To ws.Columns.Count ' 遍历所有列
            Set rng = ws.Cells(3, col) ' 第三行的单元格
            
            If Not IsEmpty(rng.Value) Then ' 检查单元格是否为空
                lastCol = col ' 如果找到非空，则记录列号并退出循环
                Exit For
            End If
        Next col
    Else
        MsgBox "没有第三行数据！"
    End If

    If Not rng Is Nothing Then ' 输出结果
        Debug.Print "第三行最后一个非空单元格位于列：" & lastCol
    End If
End Sub

运行此宏，它会查找工作表"Sheet1"中第三行的最后一列非空单元格，并打印出该列的序号。如果找不到符合条件的单元格，就会显示提示信息。