Visual Basic for Applications. Практика. Нагина Е.К - 16 стр.

массивы Quantity и SumVol хранят количество продаж и общую их стоимость
по каждой номенклатуре проданного товара.
      Как только просмотр кодов товаров в столбце А будет завершен,
данные из массивов CodesFound, Quantity и SumVol заносятся в столбцы с
E – G нового списка. Этот список сортируется по значениям столбца G в
порядке убывания объемов продаж.

Option Explicit
Option Base 1
Sub TradeOperations()
   Dim Qsales As Integer, CodesData() As _
     Integer, CodesFound() As Integer, _
     Quantity() As Integer, VolData() As _
     Double, SumVol() As Double, i As _
     Integer, j As Integer, Col As Integer, _
     Volume As Double, Flag As Boolean _
     ColSales As Integer
‘ Очищает содержимое столбцов E – G.
     With ActiveWorkbook. Worksheets(“Торговые _
         операции”). Range(“E2”)
     Range(.Offset(1,0),.Offset(0,2).End (xlDown _
           )). ClearContents
     End With
‘Определяет количество записей в списке,
‘изменяет размерность массивов   CodesData и ‘VolData
и заполняет их данными столбцов А и С.
     With   ActiveWorkbook.   Worksheets(“Торговые  _
         операции”). Range(“A2”)
       Qsales=Range(.Offset(1,0),.End(xlDown)) _
          .Rows.Count
       ReDim CodesData (Qsales)
       ReDim VolData (Qsales)
       For i = 1 to Qsales
          CodesData (i) = .Offset (i,0)
          VolData (i) = .Offset (i,2)
       Next i
     End With
‘Начальная инициализация переменных Col и Volume.
     Col = 0 : Volume = 0
     For i = 1 To Qsales
‘Присваивание переменной Flag значения = True;
‘переменная делается равной False при нахождении
‘уже найденного ранее кода в массиве CodesFound().
       Flag = True
                           16