Преобразовать сводную таблицу в диапазон значений - Microsoft Office Excel

myfirsy · 25.07.2019, 11:17

Добрый день всем.
Помогите, пожалуйста, написать макрос, который сводную таблицу преобразует в диапазон значений на новый лист с сохранением формата ячеек (ширина, цвет, шрифт).
Заранее всем спасибо.

Igor1961 · 25.07.2019, 17:24

Попробуйте так:

Код:

Sub Макрос1()
    Worksheets("Сводная").Activate
    Worksheets("Сводная").UsedRange.Copy
    Worksheets("Копия").Activate
    Worksheets("Копия").Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteFormats
    Selection.PasteSpecial Paste:=xlPasteColumnWidths
End Sub

myfirsy · 25.07.2019, 19:49

Спасибо большое, удалось адаптировать под себя

25.07.2019, 11:17	#1
myfirsy Новичок Джуниор Регистрация: 25.07.2019 Сообщений: 2	Преобразовать сводную таблицу в диапазон значений Добрый день всем. Помогите, пожалуйста, написать макрос, который сводную таблицу преобразует в диапазон значений на новый лист с сохранением формата ячеек (ширина, цвет, шрифт). Заранее всем спасибо.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Загрузка данных в Сводную таблицу	sernik	Microsoft Office Excel	0	09.10.2014 13:35
Форматировать сводную таблицу	Вадичок	Microsoft Office Excel	0	03.10.2012 00:25
Создать сводную таблицу	Пашка_1977	Microsoft Office Excel	3	09.12.2011 11:13
VBA Преобразовать в диапазон таблицу	king13	Microsoft Office Excel	4	16.10.2009 11:08
обновить сводную таблицу?	Bezdar	Microsoft Office Excel	1	10.04.2009 15:45

25.07.2019, 19:49	#3
myfirsy Новичок Джуниор Регистрация: 25.07.2019 Сообщений: 2	Спасибо большое, удалось адаптировать под себя