如何知道工作表中最长的行的长度

我正在使用质量控制表，我想查找（或知道）包含最大单元格数的最长行。 例如：

aa | bb | cc | dd | aa | kk | aa | dd | ss | 

那么，我想要的程序可以告诉我最长的行是第一个，其中包含4列。 我用这个代码：

 ActiveCell.End(xlDown).Select ActiveCell.End(xlToRight).Select my_line = Selection.Row my_column= Selection.Column + 1 

但它只能给我最后一行的长度，而不是最长的一行。 所以，如果你有一些想法，请留下评论。

Answer 1

使用带有通配符的Range.Find方法 。 从A1开始，向后看（即xlPrevious）。 查找将快速find最后使用的单元格。

 Dim lst As Range With Worksheets("Sheet7") Set lst = .Cells.Find(What:=Chr(42), After:=.Cells(1, 1), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) End With Debug.Print lst.Row Debug.Print lst.Column