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

工作表中的表格（有时也被称为超级表格）具备自动扩展等诸多功能，有时需要将表格转换为普通单元格区域，在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，走遍职场都不怕