Как узнать длину самой длинной строки на листе

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