如何将活动工作表中的所有表格转换为区域？

在 Excel 中，您可能会使用一些表格来记录数据，但有时您可能希望将表格转换为区域以便于编辑。通常情况下，一次只能将一个表格转换为区域，如果一个工作表中有几十个表格需要转换为区域，这可能会很繁琐。这里有一个 VBA 代码可以一次性将活动工作表中的所有表格转换为区域。

使用 VBA 将活动工作表中的所有表格转换为区域

使用 VBA 将活动工作表中的所有表格转换为区域

1. 激活包含要转换的表格的工作表，然后按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块 创建一个新的模块脚本，复制并将以下代码粘贴到空白模块中。

VBA：将活动工作表中的所有表格转换为区域

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

3. 按 F5 键运行代码。现在，当前工作表中的所有表格都已成功转换为区域。