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

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

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

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

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

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

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

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

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

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    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
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").Unli st

Новые блоги и статьи Все статьи Все блоги /
Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .	Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи будет иметь приблизительный результат вычисления для метода обработки данных из double buffering. Hrethgir 10.04.2025 Вообще изначально я пренебрёг квадратурой числа, но потом понял, что для вычисления приблизительного значения - сгодится, формулу можно будет корректировать по ходу. Это потому что прямое соотношение. . .
Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .	Vue SFC компонент на PHP с Fusion Jason-Webb 09.04.2025 PHP на сервере и JavaScript на клиенте — классическое сочетание, которое, несмотря на свою эффективность, создает определенный когнитивный диссонанс при разработке. В этом контексте появляются. . .	TypeScript vs JavaScript: Отличия и когда что использовать Reangularity 09.04.2025 JavaScript появился в 1995 году как творение Брендана Эйха и быстро стал основой интерактивности в вебе. За свою историю он прошел путь от простого языка для манипуляций с DOM до полноценной. . .

@MASRUB 0 / 0 / 0 Регистрация: 24.07.2015 Сообщений: 9

	Удаление сводной таблицы макросом 27.07.2015, 14:48. Показов 6710. Ответов 9 Метки нет (Все метки) Здравствуйте! Часто бывает что нужно удалить или преобразовать сводную таблицу. Пример, есть Сводная таблица1, ее нужно удалить макросом. Или преобразовать в диапазон.Как это сделать? Если так, Кликните здесь для просмотра всего текста Range("A3:K10").Select Selection.ClearContents Selection.ListObject.ListColumns(1).Dele te Selection.ListObject.ListColumns(1).Dele te то удаляется таблица с заголовком. Если так, то что то не хватает: Кликните здесь для просмотра всего текста 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 2081 / 1239 / 464 Регистрация: 20.12.2014 Сообщений: 3,237
	27.07.2015, 16:33
	Сделайте сводную таблицу. Нажмите "запись макроса". Произведите удаление таблицы. Остановите запись. Посмотрите в VB код макроса. 0

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

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

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

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

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

Аксима 6082 / 1327 / 195 Регистрация: 12.12.2012 Сообщений: 1,023
	27.07.2015, 20:15
	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 [ТС]
	Аксима, спасибо, дополню преобразовываем в диапазон: ActiveSheet.ListObjects("Таблица1").Unli st 0