excel - 无法从包含数据的工作表中查找最后一列

Question

我试图使用 VBA 找出我的 excel 电子表格中最后使用的列，以便在该列之后立即开始编写一些东西。在下面的图片中，我试图展示我的意思以及我想从哪里开始写作。所需字段已在此处选择，即“F2”。

然而，问题是那里已经可用的数据没有保持一致性。如何使用 VBA 找出最后使用的列？

这是我的尝试:

Sub FindLastColumn()
    Dim lCol&

    lCol = Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox lCol
End Sub

它产生 8结果不正确，因为正确的应该是 5 .

包含数据的工作表如下所示:

Answer 1

如果要查找范围中不包括标题的最后一列，可以按如下方式实现，将工作表名称从 Sheet1 修改为您实际使用的工作表:

Sub foo()
LastRow = Sheet1.UsedRange.Rows.Count
'get the last row with data in your used range
MaxCol = 1
For i = 2 To LastRow 'loop from row 2 to last
    If Sheet1.Cells(i, Sheet1.Columns.Count).End(xlToLeft).Column > MaxCol Then
        MaxCol = Sheet1.Cells(i, Sheet1.Columns.Count).End(xlToLeft).Column
        'get the highest value for the column into variable
    End If
Next i
MsgBox MaxCol
End Sub