如何从列中获取最高值的列表？

Question

我有一个 sheet，其中前两列具有行和列地址，第三列具有整数值。

我想从第 1 列和第 2 列中提取最高值及其对应地址到 sheet 上的单独列表中。

第三列中可能有多个相等的最大值。如何将所有这些都添加到我的列表中。

我是 Excel VBA 的新人。

Answer 1

这可能是一个开始。

Sub maxIntAndOtherStuff()
    Dim rng As Range, c As Range, i As Integer, x As Long, y As Long

    rw = 1: cl = 3 'Apply starting row & column

    Set rng = Range(Cells(rw, cl), Cells(Rows.Count, cl).End(xlUp))

    For Each c In rng
        If c.Value >= i Then
            i = c.Value
        End If
    Next c

    y = 9 'Apply column number for output
    x = Cells(Rows.Count, y).End(xlUp).Offset(1).Row 'Finds the first empty row in that column

    For Each c In rng
        If c = i Then
            Cells(x, y).Resize(, 3).Value = c.Offset(, -2).Resize(, 3).Value
            x = x + 1
        End If
    Next c
End Sub

如何从列中获取最高值的列表？

How to get a list of highest values from a column?

excel

vba

highest