Option Explicit

'описатель окна (диапазона)
Type T_WND
  iFirst As Long 'начальный индекс в массиве
  iLast As Long  'завершающий индекс в массиве
  rTotal As Long 'сумма значений в диапазоне
End Type


Sub alg_version_1()

  Dim a()
  'получаем массив для обработки
  a = mk_array
  '---------------
   Dim N As Double
   Dim i As Long
   Dim xTotal As Long, Limit As Long
      
   ' подсчет суммы
   For i = LBound(a, 1) To UBound(a, 1)
     xTotal = xTotal + a(i, 1)
   Next
   'минимальный процент суммы длин, который должен содержать отыскиваемый диапазон
   N = 0.43 ' 43%
   
   'лимит, по превышении которого окно просмотра закрывается
   Limit = Round(N * xTotal, 0)
   
   Debug.Print "Total=" & xTotal & " N=" & N & " Limit=" & Limit
   '-------------------------------------------------------------
   
   ' диапазон-победитель
   Dim r_winner As T_WND
   
   r_winner.iFirst = -1
   r_winner.iLast = UBound(a, 1) + 1
   
   ' ищем самый узкий диапазон, содержащий сумму значений не менее, чем Limit
   FindNarrowRange r_winner, a, r_winner.iLast, Limit
   
   'печать результата
   If r_winner.iFirst >= 0 Then
     Debug.Print "Лучший диапазон: Старт="; r_winner.iFirst; " Стоп="; r_winner.iLast; " Сумма="; r_winner.rTotal; " Элементов:"; r_winner.iLast - r_winner.iFirst + 1
   Else
     Debug.Print "диапазон не найден"
   End If
   
   
End Sub

Sub FindNarrowRange(ByRef r_winner As T_WND, ByRef a() As Variant, ByVal iStop As Long, ByVal Limit As Long)
' поиск наиболее узкого диапазона
' параметры:
' ByRef r_winner As T_WND - результирующий диапазон
' ByRef a() As Variant - обрабатываемый двумерный массив
' ByVal iStop As Long - номер последнего индекса в массиве + 1
' ByVal Limit As Long - лимит суммы значений для закрытия окна

   ' текущий диапазон
   Dim r_current As T_WND

   While r_current.iFirst < iStop
       'формируем размер окна, содержащего сумму значений длин не менее, чем Limit
       make_window r_current, a, Limit, iStop
       
       'устанавливаем победителя между текущим и предыдущим окном
       CompareAndSet r_winner, r_current, Limit
    
       ' сдвигаем начало и сбрасываем ширину окна для нового шага цикла
       r_current.iFirst = r_current.iFirst + 1
       r_current.iLast = r_current.iFirst
       ' обнуляем сумму
       r_current.rTotal = 0&
   Wend

End Sub

Sub make_window(ByRef r_current As T_WND, ByRef a() As Variant, ByVal p_limit As Long, ByVal p_stop As Long) 
'формирование диапазона (окна) содержащего требуемый процент от общей суммы
   If r_current.iLast < p_stop And r_current.rTotal < p_limit Then
    Do
      r_current.rTotal = r_current.rTotal + a(r_current.iLast, 1)
      If r_current.rTotal >= p_limit Or r_current.iLast + 1 = p_stop Then
        Exit Do
      End If
      r_current.iLast = r_current.iLast + 1
    Loop
   End If
End Sub

Sub CompareAndSet(ByRef r_left As T_WND, r_right As T_WND, ByVal p_limit As Long)
'выбор и установка наилучшего диапазона
   If r_right.iLast - r_right.iFirst + 1 < r_left.iLast - r_left.iFirst + 1 _
       And r_right.rTotal >= p_limit Then
     LSet r_left = r_right
   End If
End Sub

Function mk_array() As Variant
'формирование массива анализируемых значений
Dim a()
  ReDim a(18, 1)
  '-- 0
  a(0, 0) = 327.31
  a(0, 1) = 6
  '-- 1
  a(1, 0) = 327.32
  a(1, 1) = 2
  '-- 2
  a(2, 0) = 327.33
  a(2, 1) = 4
  '-- 3
  a(3, 0) = 327.35
  a(3, 1) = 7
  '-- 4
  a(4, 0) = 327.36
  a(4, 1) = 4
  '-- 5
  a(5, 0) = 327.37
  a(5, 1) = 4
  '-- 6
  a(6, 0) = 327.39
  a(6, 1) = 8
  '-- 7
  a(7, 0) = 327.4
  a(7, 1) = 9
  '-- 8
  a(8, 0) = 327.41
  a(8, 1) = 5
  '-- 9
  a(9, 0) = 327.42
  a(9, 1) = 5
  '-- 10
  a(10, 0) = 327.44
  a(10, 1) = 1
  
  '-- 11
  a(11, 0) = 327.45
  a(11, 1) = 19
  '-- 12
  a(12, 0) = 327.46
  a(12, 1) = 11
  '-- 13
  a(13, 0) = 327.47
  a(13, 1) = 9
'-- 14
  a(14, 0) = 327.48
  a(14, 1) = 5
'-- 15
  a(15, 0) = 327.49
  a(15, 1) = 10
'-- 16
  a(16, 0) = 327.5
  a(16, 1) = 57
'-- 17
  a(17, 0) = 327.51
  a(17, 1) = 19
'-- 18
  a(18, 0) = 327.52
  a(18, 1) = 16
  '-----------
  mk_array = a
End Function