在 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 键运行代码，即可将当前工作表中的所有表格成功转换为区域。