Удаление сводной таблицы макросом

@MASRUB · Регистрация: 24.07.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Часто бывает что нужно удалить или преобразовать сводную таблицу.
Пример, есть Сводная таблица1, ее нужно удалить макросом. Или преобразовать в диапазон.Как это сделать?
Если так,

Кликните здесь для просмотра всего текста

Range("A3:K10").Select
Selection.ClearContents
Selection.ListObject.ListColumns(1).Delete
Selection.ListObject.ListColumns(1).Delete

то удаляется таблица с заголовком.

Если так, то что то не хватает:

Кликните здесь для просмотра всего текста

Dim WSD As Worksheet
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim Prange As Range
Dim FinalRow As Long
Dim FinalCol As Long
Set WSD = Worksheets("Pivot Table")

For Each PT In WSD.PivotTables
PT.TableRange2.Clear
Next PT
End Sub

@chumich · 27.07.2015, 16:33

Сделайте сводную таблицу. Нажмите "запись макроса". Произведите удаление таблицы. Остановите запись. Посмотрите в VB код макроса.

@MASRUB · 27.07.2015, 16:41 **[ТС]**

Гениально, попробуйте сами так сделать, у вас ничего не получится. Там будет пусто.

@chumich · 27.07.2015, 17:15

Сообщение от MASRUB

Там будет пусто.

Попробовал, там было следующее:

Visual Basic

Sub Макрос3()
'
' Макрос3 Макрос
'
' Сочетание клавиш: Ctrl+u
'
    Range("N9:Q11").Select 'выделение и очищение самой таблицы
    ActiveSheet.PivotTables("СводнаяТаблица2").ClearTable
    Range("N9:P26").Select ' выделение и удаление диапазона ячеек "заготовки"
    Selection.Delete Shift:=xlToLeft
End Sub

@MASRUB · 27.07.2015, 17:33 **[ТС]**

Прошу прощения, речь идет не о сводной таблице, а об "умной" таблице excel 2010.

@chumich · 27.07.2015, 17:35

Не по теме:

Сообщение от MASRUB

об "умной" таблице excel 2010

Здесь я пас. С Excel выше 2007 не работаю :pardon:

Fairuza · 27.07.2015, 18:02

При работе с "умными таблицами" доступна Вкладка Работа с таблицами, и там есть "Преобразовать в диапазон"

@MASRUB · 27.07.2015, 18:05 **[ТС]**

Да, я с этим полностью согласен, но это руками преобразовать в диапазон, а макрос эти действия не записывает.

Аксима · 27.07.2015, 20:15

MASRUB, можно использовать методы Delete или Unlist объекта ListObject:

Application
- Workbooks
  - Workbook
    - Worksheets
      - Worksheet
        ListObjects
        ListObject
        Delete Method (Удаление "умной таблицы")
        
        Unlist Method (Преобразование в диапазон)

@MASRUB · 28.07.2015, 15:12 **[ТС]**

Аксима, спасибо, дополню преобразовываем в диапазон:
ActiveSheet.ListObjects("Таблица1").Unlist

@MASRUB 0 / 0 / 0 Регистрация: 24.07.2015 Сообщений: 9
		1
	Удаление сводной таблицы макросом 27.07.2015, 14:48. Показов 6532. Ответов 9 Метки нет (Все метки) Здравствуйте! Часто бывает что нужно удалить или преобразовать сводную таблицу. Пример, есть Сводная таблица1, ее нужно удалить макросом. Или преобразовать в диапазон.Как это сделать? Если так, Кликните здесь для просмотра всего текста Range("A3:K10").Select Selection.ClearContents Selection.ListObject.ListColumns(1).Delete Selection.ListObject.ListColumns(1).Delete то удаляется таблица с заголовком. Если так, то что то не хватает: Кликните здесь для просмотра всего текста Dim WSD As Worksheet Dim PTCache As PivotCache Dim PT As PivotTable Dim Prange As Range Dim FinalRow As Long Dim FinalCol As Long Set WSD = Worksheets("Pivot Table") For Each PT In WSD.PivotTables PT.TableRange2.Clear Next PT End Sub 0

@chumich 2080 / 1238 / 464 Регистрация: 20.12.2014 Сообщений: 3,237
	27.07.2015, 16:33	2
	Сделайте сводную таблицу. Нажмите "запись макроса". Произведите удаление таблицы. Остановите запись. Посмотрите в VB код макроса. 0

@MASRUB 0 / 0 / 0 Регистрация: 24.07.2015 Сообщений: 9
	27.07.2015, 16:41 [ТС]	3
	Гениально, попробуйте сами так сделать, у вас ничего не получится. Там будет пусто. 0

@MASRUB 0 / 0 / 0 Регистрация: 24.07.2015 Сообщений: 9
	27.07.2015, 17:33 [ТС]	5
	Прошу прощения, речь идет не о сводной таблице, а об "умной" таблице excel 2010. 0

@chumich
	27.07.2015, 17:35 #6
	Не по теме: Сообщение от MASRUB об "умной" таблице excel 2010 Здесь я пас. С Excel выше 2007 не работаю :pardon: 0

Fairuza 6024 / 3216 / 720 Регистрация: 23.11.2010 Сообщений: 10,743
	27.07.2015, 18:02	7
	При работе с "умными таблицами" доступна Вкладка Работа с таблицами, и там есть "Преобразовать в диапазон" 0

@MASRUB 0 / 0 / 0 Регистрация: 24.07.2015 Сообщений: 9
	27.07.2015, 18:05 [ТС]	8
	Да, я с этим полностью согласен, но это руками преобразовать в диапазон, а макрос эти действия не записывает. 0

Аксима 6082 / 1326 / 195 Регистрация: 12.12.2012 Сообщений: 1,023
	27.07.2015, 20:15	9
	MASRUB, можно использовать методы Delete или Unlist объекта ListObject: Application Workbooks Workbook Worksheets Worksheet ListObjects ListObject Delete Method (Удаление "умной таблицы") Unlist Method (Преобразование в диапазон) 1

@MASRUB 0 / 0 / 0 Регистрация: 24.07.2015 Сообщений: 9
	28.07.2015, 15:12 [ТС]	10
	Аксима, спасибо, дополню преобразовываем в диапазон: ActiveSheet.ListObjects("Таблица1").Unlist 0