找到一行中的最後一個非空單元格
在這個例子中,我們將看一個返回行中最後一個非空列的方法。
無論資料集中的空區域如何,此方法都將起作用。
但是,如果**涉及***合併的單元格,****則應該謹慎使用 ***** ,因為 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