如何將活動工作表中的所有表格轉換為區域？

在 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 鍵運行代碼。現在，當前工作表中的所有表格都已成功轉換為區域。