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

在Excel VBA中，你可以使用`Find`函数结合循环来查找第三行（假设为Row 3）最后一个非空值的单元格。这里是一个简单的示例代码：

Sub FindLastNonEmptyCellInThirdRow()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastColumn As Long
    
    ' Set the worksheet you want to work with (replace "Sheet1" with your sheet name)
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' Start searching from column A and incrementally move to the right
    lastColumn = 1
    Do While ws.Cells(3, lastColumn).Value <> "" ' Check if cell is not empty
        lastColumn = lastColumn + 1 ' Move to next column
    Loop
    
    MsgBox "The last non-empty cell in row 3 is in column " & lastColumn, vbInformation
End Sub

这个VBA宏会在第三行从A列开始查找，直到找到第一个非空单元格，然后返回该列的序号。运行此代码，会弹出一个消息框显示结果。