Excel VBA Как получить список самых высоких значений из столбца - PullRequest
Новая
       31

Excel VBA Как получить список самых высоких значений из столбца

0 голосов
/ 31 октября 2019

У меня есть лист, где первые 2 столбца имеют адреса строк и столбцов, а третий столбец имеет целочисленные значения. Я хотел бы извлечь наибольшее значение и соответствующий ему адрес из столбцов 1 и 2 в отдельный список на листе. Проблема в том, что в третьем столбце может быть несколько одинаковых наивысших значений, как мне получить все эти значения в моем новом списке. Я довольно новичок в Excel VBA, поэтому будьте осторожны :) Заранее спасибо.

1 Ответ

0 голосов
/ 01 ноября 2019

Это может быть начало. 

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
...