我找到了这种方法来查找工作表中包含行的最后一个数据:
ws.Range("A65536").End(xlUp).row
是否有类似的方法来查找工作表中包含列的最后一个数据?
最佳答案
有很多方法可以做到这一点。最靠谱的是找到。
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关于重置使用范围。
关于excel - 如何找到最后一列数据?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11926972/