最大セルから最初のセルまでの列を選択

Question

Excel VBAを初めて使用しています。私はMAX値から最初の行までを選択したいこのデータから742行のデータを得ました。 など。私の最大値がセル "A480"で "240"であると仮定して、セル "A480"からセル "A1"への列を選択したいとします。

誰でもこれを行う方法を知っています。

Answer 1

これを試してみてください：

Sub MaxNumberRow() 
    Dim max As Double 
    Dim rowNum As Long 

    With Sheet1 
     max = WorksheetFunction.max(.Columns(1)) 

     If max > 0 Then 
      rowNum = .Columns(1).Find(What:=max, After:=.Cells(1, 1), LookIn:=xlValues, LookAt:= xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row 
      Range(Cells(1, 1), Cells(rowNum, 1)).Select 
     End If 
    End With 
End Sub