Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
как сделать консолидацию данных и распределить данные по типам?
 
Добрый вечер,

Помогите, пожалуйста, создать макрос для решения такой задачки. Нужно создать макрос, который консолидирует данные для столбика суммы, вычисляет среднее для цены и притом раскидывает их по столбикам-типам.
Я пробовала сделать это при помощи сводной таблицы(макросом), но появляются ненужные промежуточные суммы, от которых никак не избавлюсь. Просто стереть столбцы кодом не могу, т. к. каждый раз меняется количество типов, а за ними - количество и адреса ненужных столбиков.
Прицепляю файлик с примером. Если кто заинтересуется отзовитесь plizzzz :)
 
Svetlanna, Ваш вопрос именно для версии Мас?
 
Нужен макрос, потомучто это часть автоматизированной задумки
 
С утра нашелся ответ :)  я воспользовалать 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
Читают тему (гостей: 2)
Наверх