활성 워크시트의 모든 표를 범위로 변환하는 방법은 무엇입니까?

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 키를 누릅니다. 이제 현재 시트의 모든 표가 성공적으로 범위로 변환되었습니다.