找到一行中的最後一個非空單元格

在這個例子中,我們將看一個返回行中最後一個非空列的方法。

無論資料集中的空區域如何,此方法都將起作用。

但是,如果**涉及***合併的單元格,****則應該謹慎使用 ***** ,因為 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