從最大單元格到第一個單元格中選擇一列

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