Excel中特定行的最后一列

Question

我必须在工作表中找到一行的最后一列。 我能够找到工作表中的最后一列，但是对于特定的行，我需要找到最后一列，这对于excel中的每张工作表都会有所不同，并且每次运行都会有所不同。 为了找到最后一列，我使用了下面的代码，并参考了在函数中跨多个工作表查找最后一列的问题：

For Each ws In ThisWorkbook.Sheets
 lc = ws.Cells.Find("*", SearchOrder:=xlByColumns,      
 SearchDirection:=xlPrevious).Column
 Debug.Print ws.Name, lc
 MsgBox lc
 Next ws

更新：尝试使用下面的代码，但是显示错误代码91。函数是：

 Function lastColumn(Optional sheetName As String, Optional 
rowToCheck  As Long =  1) As Long

Dim ws  As Worksheet

If sheetName = vbNullString Then
    Set ws = ActiveSheet
Else
    Set ws = Worksheets(sheetName)
End If

lastColumn = ws.Cells(rowToCheck, ws.Columns.Count).End(xlToLeft).Column

End Function

在代码中将其调用为：

For Each ws In ThisWorkbook.Worksheets

    i = ws.Columns(2).Find("Total").Row (error code as 91)
    Debug.Print lastColumn(ws.Name, i)
Next ws

Answer 1

Sub Test()

For Each ws In ThisWorkbook.Sheets
    lc = ws.Cells(i, ws.Columns.Count).End(xlToLeft).Column
    Debug.Print ws.Name, lc
    MsgBox lc
Next ws

End Sub

只需将i替换为行号即可。

Answer 2

这是我用于每个特定行的lastColumn的函数：

Function lastColumn(Optional sheetName As String, Optional rowToCheck As Long = 1) As Long

    Dim ws  As Worksheet

    If sheetName = vbNullString Then
        Set ws = ActiveSheet
    Else
        Set ws = Worksheets(sheetName)
    End If

    lastColumn = ws.Cells(rowToCheck, ws.Columns.Count).End(xlToLeft).Column

End Function

它sheetName可选参数sheetName和rowToCheck 。 这是一种针对您的情况运行它的方法：

Public Sub TestMe()

    Dim ws      As Worksheet
    Dim lc      As Long
    lc  = 8

    For Each ws In ThisWorkbook.Worksheets
        Debug.Print lastColumn(ws.Name, lc)
    Next ws

End Sub

Answer 3

尝试这个 ：

With Worksheets(set_sheet_name)
    LastCol = .Cells(5, .Columns.Count).End(xlToLeft).Column
End With

这会让你nr。 行“ 5”中的列数，如果需要另一行，只需将5更改为所需的行即可。