找到一行中的最后一个非空单元格

在这个例子中，我们将看一个返回行中最后一个非空列的方法。

无论数据集中的空区域如何，此方法都将起作用。

但是，如果**涉及***合并的单元格，****则应该谨慎使用 ***** ，因为 End 方法将针对合并区域“停​​止”，返回合并区域的第一个单元格。

此外，不会考虑隐藏列中的非空单元格。

Sub FindingLastCol()
    Dim wS As Worksheet, LastCol As Long
    Set wS = ThisWorkbook.Worksheets("Sheet1")
    
    'Here we look in Row 1
    LastCol = wS.Cells(1, wS.Columns.Count).End(xlToLeft).Column
    Debug.Print LastCol
End Sub