2016-07-05 1 views
1

저는 품질 관리 테이블을 사용하고 있으며, 가장 많은 수의 셀이 포함 된 가장 긴 행을 찾고 싶습니다.워크 시트에서 가장 긴 행의 길이를 알아 보는 방법

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 

그러나 마지막 줄의 길이 만 줄 수 있지만 길지는 않습니다. 그래서 몇 가지 아이디어가 있다면 의견을 남겨주세요.

+0

명확하게 할 수 있습니까? 가장 많이 채워진 셀 * 일명 * 마지막 채워진 열로 행을 찾고 싶습니다. 가장 긴 행은 셀 자체가 아닌 셀 내의 내용을보고있는 것처럼 들립니다. – Jeeped

답변

3

와일드 카드로 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 
+0

그거야! 고맙습니다! – Hiddenllyy