如何使用VBA实现将工作簿中全部表格转换为区域

taller_2000

于 2022-04-04 01:11:41 发布

阅读量2.1k

点赞数 3

分类专栏： VBA Excel 单元格文章标签：表格转换为区域 ListObject 批量转换循环遍历

本文链接：https://blog.csdn.net/taller_2000/article/details/123947771

版权

VBA 同时被 3 个专栏收录

311 篇文章

订阅专栏

Excel

164 篇文章

订阅专栏

单元格

37 篇文章

订阅专栏

本文介绍了如何在Excel中将表格转换为普通单元格区域，通过简单的几步手动操作或使用VBA代码实现批量转换。手动步骤包括选中表格、点击【表设计】并选择【转换为区域】。对于大量工作表，可以利用VBA快速完成，代码通过遍历工作簿中的工作表和表格，调用Unlist方法实现转换。学会VBA在职场上能大大提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

工作表中的表格（有时也被称为超级表格）具备自动扩展等诸多功能，有时需要将表格转换为普通单元格区域，在Excel中操作很简单。

步骤1 选中表格中的任意单元格。
步骤2 依次单击【表设计】>>【转换为区域】
步骤3 单击【确定】按钮

在这里插入图片描述

工作簿中有很多个工作表，每个工作中又有多个表格，逐个操作实在太麻烦，而且容易出现遗漏，使用VBA快速解决这个问题。

示例代码如下。

Sub demo()
    For Each sht In Sheets
        For Each lobj In sht.ListObjects
            lobj.Unlist
        Next
    Next
End Sub

【代码解析】
第2行代码循环遍历工作簿中的工作表对象。
第3行代码循环遍历工作表中的表格对象，注意是ListObjects集合。
第4行代码使用Unlist方法实现将表格转换为区域。

在这里插入图片描述

学会VBA，走遍职场都不怕