Друзья!Д обрый день! Прошу вашей помощи - может быть у кого-то есть заготовка.
Есть сводная таблица, в ней 3 столбца - Название Склада, Продукт, Сумма по полю продукт. Требуется скопировать на отдельный лист или рядом (как в примере), при этом сделать это при помощи макроса: Название Склада, Продукт (Сумма по полю продукт) раз друг под другом, проделать данную операцию для каждого Название Склада.
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