w4-2

Sub bar()

  Const m = 4 ' trapézok magassága
  Dim i As Byte '1-től 24-ig
  Dim t(1 To 24) As Double '24 trapéz területe

  i = 1
  Do While i <= 24
    'Debug.Print (i)
    t(i) = ((Cells(1, i).Value + Cells(2, i).Value) * 4) / 2
    i = i + 1
  Loop

  For j = LBound(t) To UBound(t)
      If t(j) = WorksheetFunction.Min(t) Then
          Debug.Print (j)
          Exit For
      End If
  Next j

End Sub