Хитрая группировка средствами VBA

[uni]

Доброго времени суток форумчане.
На работе подсунули разработку отчета (см. вложение), а я в VBA вообще ничего не знаю. Задача состоит в том, как сгруппировать полученные данные из БД, причем это нужно выполнять скриптом, так как полученное кол-во строк может варьироваться в зависимости от заданного периода.

Вручную получается ерунда, далекая от истины.

[IgorGO]

а я в VBA вообще ничего не знаю

а может это и ни к чему?
используйте сводную. сейчас виден отчет по работе точек. в окне настроек сводной, поле "названия строк" перетащите "агента" выше "точки" - тут же получите отчет по работе агентов. Может я чего-то не понимаю, но что еще надо поллучить с этих данных?

[uni]

Сообщение от IgorGO

а может это и ни к чему?
используйте сводную. сейчас виден отчет по работе точек. в окне настроек сводной, поле "названия строк" перетащите "агента" выше "точки" - тут же получите отчет по работе агентов. Может я чего-то не понимаю, но что еще надо поллучить с этих данных?

Там еще надо считать кол-во точке в которых были продажи или не было, а так же процент, сводная выглядит как то коряво.

Я пробовал записывать макрос, что бы хотя бы посчитать просто тупо итоги по товару. Но вот беда

Dim rng As Range
     Dim grp As Range
     Dim i, j, k
     Dim adr As String
     Dim rgColumn As Range
    
     rng = rgColumn.Parent.Cells(Rows.Count, rgColumn.Column).End(xlUp).Value

     Dim n As Long
     n = rng.Row + rng.Rows.Count
     Dim cel As Range
     Set cel = ActiveSheet.Cells(n - 1, 1)
     Dim tx
     tx = cel.Value
     If VarType(tx) = vbEmpty Then
          MsgBox "Выбрана лишняя строка" & vbCr & "Действие остановлено"
          Exit Sub
     End If
     
         rng.Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(1, 2, 3, 4, 5, _
        6), Replace:=True, PageBreaks:=False, SummaryBelowData:=False

и выпадает ошибка "Object variable or With block variable not set (Error 91) "

[IgorGO]

предположу что вылетает здесь
rng = rgColumn.Parent.Cells(Rows.Count, rgColumn.Column).End(xlUp).Value

потому, что не вижу чтобы rgColumn уже была как-то определена

[uni]

Да, Вы правы, а как ее определить? Вроде же

Dim rgColumn As Range

Или это не то?

[IgorGO]

переменная обьявлена, но значение ей не присвоено...

[uni]

IgorGO

Первоначально это выглядело так

Function dhLastColUsedCell(rgColumn As Range) As Variant
   ' Вывод значения последней непустой ячейки столбца
   dhLastColUsedCell = rgColumn.Parent.Cells(Rows.Count, _
    rgColumn.Column).End(xlUp).Value
End Function

С функцией как то не получилось. Откуда брать значение для переменной rgColumn я не знаю. Насколько я понимаю, это значение всех строк в столбце, но могу ошибаться.

[IgorGO]

логика функции, которая была написана изначально мне абсолютно понятна.
функция получала в качестве пареметра какую-нибудь колонку и возвращала значение, которое содержит последняя непустая ячейка из этой колонке.

rgColumn - это должно быть что-то типа range("C:C") - в данном случае 3-я колонка.

[uni]

Ок, переписал вот так.

rng = Range("A2").Parent.Cells(Rows.Count, Range("A2").Column).End(xlUp).Value

Однако та же ошибка, суть в том, что мне нужно все не пустые строки выделить в столбце А с определенной строки и сделать "Данные"->"Итоги", но с помощью макроса.

[uni]

Нашел вот такой способ.

rng = Range("A2").CurrentRegion.Rows.Count

Правда не стал определять тип переменной rng, потому что не понимаю какой именно.

'Dim rng As Range
     Dim grp As Range
     Dim i, j, k
     Dim adr As String
     
     
     rng = Range("A2").CurrentRegion.Rows.Count
     
    Range("A2:F2").Rows(rng).Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(1, 2, 3, 4, 5, _
        6), Replace:=True, PageBreaks:=False, SummaryBelowData:=False

Подскажите пожалуйста как мне значение rng передать в строку rng.Range.Select? И еще, мне нужно выделить не только столбец А до строки rng, но и столбцы B,C,D,E,F.

Пишет:"Run-time error '1004' Команда не может быть выполнена над указанным диапазоном. Выберите одну ячейку из диапазона и повторите попытку."
Как это обойти?