查找具有列最大值的單元格，復制整個行並粘貼到第2行

Question

我已經在網上搜索了有關此問題的答案，但是無法將找到的答案完全轉換為我想做的事情。

我想在Range（“ L5：L”＆LastRow）中找到具有最大值的單元格，然后復制整個行並將其粘貼到第2行。

我知道將最大值存入單元格L4的代碼。 但是我也想復制最大值所在的行。下面的代碼。 但是如何選擇並復制整個行呢？ 似乎很簡單，但我無法使其正常工作。

所以這就是我要獲得的價值：

Range("L4").Value = Application.WorksheetFunction.max(Range("L5:L" & LastRow))

Answer 1

下面將找到最大值，找到具有最大值的第一行，並從最大值行中獲取行值，並在結果中填充行2。

Dim lngRow As Long
Dim lngMax As Long
Dim rngTemp As Range
Dim rngCell As Range
Dim lastRow As Long

lastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rngTemp = Range("L5:L" & lastRow)
lngMax = Application.WorksheetFunction.Max(Range("L5:L" & lastRow))

For Each rngCell In rngTemp
    If rngCell.Value = lngMax Then
        lngRow = rngCell.Row
        Exit For
    End If
Next rngCell

Rows(2).Value = Rows(lngRow).Value