Excel макросы для маркетолога

Готовые VBA-макросы для автоматизации рутинных задач в Excel.

1. Очистка URL из выгрузки

Удаляет параметры запроса из списка URL, оставляя нужные UTM-метки.

Sub CleanURLs()
    Dim cell As Range
    For Each cell In Selection
        If cell.Value <> "" Then
            Dim parts As Variant
            parts = Split(cell.Value, "?")
            cell.Value = parts(0)
        End If
    Next cell
End Sub

2. Объединение данных кампаний

Собирает строки из нескольких листов в одну сводную таблицу.

Sub MergeSheets()
    Dim ws As Worksheet, dest As Worksheet
    Set dest = ThisWorkbook.Sheets("Summary")
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "Summary" Then
            ws.UsedRange.Copy dest.Cells(dest.Cells(dest.Rows.Count, 1).End(xlUp).Row + 1, 1)
        End If
    Next ws
End Sub

3. Форматирование сводных таблиц

Применяет единое форматирование ко всем сводным таблицам в книге.

Sub FormatPivots()
    Dim pt As PivotTable
    For Each pt In ActiveSheet.PivotTables
        pt.TableStyle2 = "PivotStyleMedium9"
    Next pt
End Sub

Как использовать: Нажмите Alt+F11 чтобы открыть редактор VBA, вставьте модуль, вставьте макрос и запустите клавишей F5.