Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
как сделать консолидацию данных и распределить данные по типам?
 
#1
30.05.2017 21:31:23
Добрый вечер,

Помогите, пожалуйста, создать макрос для решения такой задачки. Нужно создать макрос, который консолидирует данные для столбика суммы, вычисляет среднее для цены и притом раскидывает их по столбикам-типам.
Я пробовала сделать это при помощи сводной таблицы(макросом), но появляются ненужные промежуточные суммы, от которых никак не избавлюсь. Просто стереть столбцы кодом не могу, т. к. каждый раз меняется количество типов, а за ними - количество и адреса ненужных столбиков.
Прицепляю файлик с примером. Если кто заинтересуется отзовитесь plizzzz :)
 
 
 
#2
30.05.2017 22:36:59
Svetlanna, Ваш вопрос именно для версии Мас?
 
 
 
#3
31.05.2017 08:45:47
Нужен макрос, потомучто это часть автоматизированной задумки
 
 
 
#4
31.05.2017 09:38:43
С утра нашелся ответ :)  я воспользовалать PivotTable макросом, а ненужные столбцы убрала при помощи такого кода (код нашла в нете):
Код
Sub test()
    Application.ScreenUpdating = False
    Dim sh As Worksheet: Set sh = ActiveSheet: [a1].Select
    Dim ra As Range, cell As Range, zero As Range: Set ra = Intersect(sh.UsedRange, sh.Rows(2))
    For Each cell In ra.Cells
        If cell.Text = "Sum of price" or _
           cell.Text = "Sum of tax" _
 Then If zero Is Nothing Then Set zero = cell Else Set zero = Union(zero, cell)
    Next
    If Not zero Is Nothing Then zero.EntireColumn.Select:    '.Delete
End Sub

Может еще кому поможет...
 
 
 
Страницы: 1
Наверх