excel - 如何找到最后一列数据？

Question

我找到了这种方法来查找工作表中包含行的最后一个数据:

ws.Range("A65536").End(xlUp).row

是否有类似的方法来查找工作表中包含列的最后一个数据？

Answer 1

有很多方法可以做到这一点。最靠谱的是找到。

Dim rLastCell As Range

Set rLastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)

MsgBox ("The last used column is: " & rLastCell.Column)

如果您想查找特定行中使用的最后一列，您可以使用:

Dim lColumn As Long

lColumn = ws.Cells(1, Columns.Count).End(xlToLeft).Column

使用已用范围(不太可靠):

Dim lColumn As Long

lColumn = ws.UsedRange.Columns.Count

如果 A 列中没有数据，则使用已用范围将不起作用。有关已用范围的另一个问题，请参阅此处:

参见Here关于重置使用范围。