Maksimum hücreden birinci hücreye bir sütun seçin

Question

Excel VBA'da yeniyim. MAX değerinden ilk satıra kadar seçmek istediğim bu verilere ait 742 satırlık veri aldım. E.g. Maksimum değerin "A480" hücresinde "240" olduğunu varsayalım, böylece "A4" hücresinden "A1" hücresine bir sütun seçmek istiyorum.

Bunu nasıl yapacağını bilen var.

Answer 1

bu deneyin:

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