雑学

【Excel】エクセルにて最大値の場所の検索・表示をする方法【マクロ（VBA）】

 
当サイトでは記事内に広告を含みます
 Sub MaxScore()
    'b列の先頭に「名前」というヘッダーがあり、その下に各名前が記載されている前提
    'c列の先頭に「ゲームの点数」というヘッダーがあり、その下に名前に対応した点数が記載されている

    'c列の最大値を取得
    Dim MaxValue As Integer
    MaxValue = WorksheetFunction.Max(Range("C:C"))

    '最大値に対応するb列のセルを取得
    Dim MaxCell As Range
    Set MaxCell = Columns("C:C").Find(What:=MaxValue, LookAt:=xlWhole)

    'f2セルに最大値を、e2セルに最大値に対応するb列のセルを、g2セルにそのセル番号を記載する
    Range("F2").Value = MaxValue
    Range("E2").Value = MaxCell.Offset(0, -1).Value 'MaxCellの左隣のセルを取得
    Range("G2").Value = MaxCell.Row
End Sub
RELATED POST