Excel VBA：如何查找指定工作表中特定行的最后一列？

没问题，我来帮你调整代码，实现指定行内查找最后一列的需求！

你之前的代码是针对整个工作表查找最后一个非空单元格，要限定到特定行，只需要把查找范围从ws.Cells（整个工作表）改成ws.Rows(targetRow)（目标行的所有单元格）就可以了。

完整示例代码 #

Sub FindLastColumnInSpecificRow()
    Dim ws As Worksheet
    Dim targetRow As Long
    Dim lc As Long
    
    ' 替换成你需要查找的目标行号，比如第5行就写5
    targetRow = 5
    
    For Each ws In ThisWorkbook.Sheets
        ' 仅在目标行范围内，从右往左查找第一个非空单元格
        Dim lastCell As Range
        Set lastCell = ws.Rows(targetRow).Find( _
            What:="*", _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious, _
            LookIn:=xlValues ' 可选：只查找单元格的值，忽略格式；不需要可删除
        )
        
        ' 处理目标行无数据的情况，避免报错
        If Not lastCell Is Nothing Then
            lc = lastCell.Column
            ' 输出结果到立即窗口，也可以改成写入单元格或其他操作
            Debug.Print ws.Name & " 第" & targetRow & "行最后一列：列号" & lc & "（列标" & Split(ws.Cells(1, lc).Address, "$")(1) & "）"
        Else
            Debug.Print ws.Name & " 第" & targetRow & "行没有任何非空单元格"
            lc = 0 ' 可设置默认值，比如1或者其他你需要的数值
        End If
    Next ws
End Sub

关键说明 #

• 限定查找范围：ws.Rows(targetRow)把搜索范围锁定到你指定的行，这样就不会受其他行的数据影响
• 查找逻辑保留：SearchDirection:=xlPrevious确保从行的最右侧往左找，第一个遇到的非空单元格就是该行的最后一列
• 错误防护：如果目标行完全是空的，lastCell会是Nothing，必须加If Not lastCell Is Nothing的判断，否则会触发运行时错误
• 灵活调整：你可以把targetRow改成动态值，比如从单元格读取（targetRow = ThisWorkbook.Sheets("设置").Range("A1").Value），或者让用户弹窗输入，适配不同场景

内容的提问来源于stack exchange，提问作者user9351236