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

Question

我正在使用质量控制表，我想找到(或知道)包含最多单元格的最长行。例如:

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 method带通配符。从 A1 开始向后看(即 xlPrevious)。查找将快速逐列查找最后使用的单元格。

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