快速清空Excel表格（超级表）

实例需求：示例文件中的表格（有时称为超级表）如下图所示。

现在需要清空表格内容，保留一个空行，如下图所示。

此需求的核心点在于，VBA中表格对象，并不是Table，而是ListObject，只要定位对象之后，处理起来并不复杂。

示例代码如下。

Sub Demo()Dim objTab As ListObjectDim rng As RangeSet objTab = ActiveSheet.ListObjects(1)Set rng = objTab.Rangerng.Offset(1, 0).ClearobjTab.Resize rng.Resize(2, rng.Columns.Count)Set objTab = NothingSet rng = Nothing
End Sub

【代码解析】
第4行代码使用ListObjects对象集合定位工作表中的表格。
第5行代码获取表格的单元格区域。
第6行代码将表格的单元格区域向下偏移一行，并清空
第7行代码使用resize方法，将表格的范围缩减为两行，列数保持不变。
第8~9行代码是否对象变量所占用的系统资源。

快速清空Excel表格（超级表）相关推荐

python实操100例乘法表_Python编程快速上手——Excel表格创建乘法表案例分析
本文实例讲述了Python Excel表格创建乘法表.分享给大家供大家参考,具体如下: 题目如下: 创建程序multiplicationTable.py,从命令行接受数字N,在一个Excel电子表格中 ...
DataGridXL快速JavaScript Excel类数据表
DataGridXL快速JavaScript Excel类数据表 DataGridXL 为 Web 应用程序提供类似于 Microsoft Excel 的体验.DataGridXL 是一个高性能的数据 ...
excel怎么一个格子斜分_如何快速把excel表格左上角的一个单元格斜分成2或3个单元格.doc...
如何快速把excel表格左上角的一个单元格斜分成2或3个单元格如何快速把excel表格左上角的一个单元格斜分成2或3个单元格篇一:使用excel表格12个小技巧 1.Excel中插入空白行如果想 ...
mac电脑如何快速清除excel表格中的空白行
笔者今天碰到个问题,就是如何快速清除excel表格中的某个字段为空的所有行,百度了好久终于找到了解决办法,在次记录下目录步骤一:打开定位弹出框步骤二:选择定位条件步骤三:右键单击击选中单元格, ...
latex 的列表和表格环境-快速导入excel表格源文件
latex 的列表和表格环境-快速导出excel表格源文件列表-1 基本语法 \begin{itemize}\item 列表内容\item 列表内容\item 列表内容 \end{itemiz ...
python快速将excel表格规范导入word
提示:快速将excel表格规范导入word python快速将excel表格规范导入word 前言二.开发环境三.实现步骤 1.引入库 2.代码片段前言最近接到一个需求,公司的统计需要一个ex ...
你不一定知道这个用 Python 快速设置 Excel 表格边框的技巧
上一期获得赠书读者:芈小米,请尽快联系我,安排邮寄~ 本篇是呆鸟原创系列 Pandas 百问百答的第一篇,本系列的特点如下: 目标受众:Python 数据分析小白.从 Excel 处理数据转向用 P ...
html数据分析表格api_你不一定知道这个用 Python 快速设置 Excel 表格边框的技巧...
本篇是呆鸟原创系列 Pandas 百问百答的第一篇,本系列的特点如下: 目标受众:Python 数据分析小白.从 Excel 处理数据转向用 Pandas 处理数据的新手为什么要出个系列:目的很简 ...
Excel中超级表和普通表的转换及特性
Excel超级表是一个超级强大的功能,能够快速的对海量数据进行汇总和处理.你会发现,目前在各大平台上,宣传用Excel来做数据分析的各种各样的课程有增无减,只要是和数字打交道的人,都一定要学会使用Ex ...

快速清空Excel表格（超级表）

快速清空Excel表格（超级表）相关推荐

最新文章

热门文章