Страницы: 1
RSS
Макрос, копирующий строки опреденное количетсво раз.
 
Друзья!Д обрый день!
Прошу вашей помощи - может быть у кого-то есть заготовка.

Есть сводная таблица, в ней 3 столбца - Название Склада, Продукт, Сумма по полю продукт.
Требуется скопировать на отдельный лист или рядом (как в примере), при этом сделать это при помощи макроса: Название Склада, Продукт (Сумма по полю продукт) раз друг под другом, проделать данную операцию для каждого Название Склада.

Пример во вложении.
Благодарю Вас!
Изменено: Kolesnikov - 13.12.2018 22:10:25
 
Kolesnikov, обязательно со сводной? С исходной таблицы нельзя? Зачем Вам "посредник"?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
При активном листе Pivot
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim n As Integer
 Range("E3") = Range("A3")
 Range("F3") = Range("B3")
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    n = 4
  For i = 4 To iLastRow
    Cells(n, "E").Resize(Cells(i, "C")) = Cells(i, "A")
    Cells(n, "F").Resize(Cells(i, "C")) = Cells(i, "B")
    n = n + Cells(i, "C")
  Next
End Sub
Изменено: Kuzmich - 13.12.2018 17:45:54
 
Уважаемый JayBhagavan, к сожалению без сводного КУБа не обойтись.

Большое спасибо!
 
Kuzmich, благодарю Вас!
Страницы: 1
Наверх