Question

我已经在网上搜索了这个答案，但无法将我找到的答案翻译成我想要做的事情。

我想在Range（＆＃34; L5：L＆＃34;＆amp; 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

查找具有最大值列的单元格，复制整行并粘贴到第2行

1 个答案: