ワークシートの中で最も長い行の長さを知る方法

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）。 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