엑셀 범위 초기화 :: ClearRange 명령문 사용법

Sub ClearRange(ParamArray Rngs() As Variant)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 ([https://www.oppadu.com](https://www.oppadu.com/))
'▶ ClearRange 함수
'▶ 지정한 범위 값을 초기화합니다. 범위를 직접 지정하거나 범위를 문자로 입력할 수 있습니다.
'▶ 인수 설명
'_____________Rngs  : 값을 초기화할 범위입니다.
'▶ 사용 예제
'ClearRange "범위1", Range("A1:A10")
'###############################################################
 
Dim Rng As Variant: Dim Rs As Variant
Dim r As Range: Dim a As Range: Dim v As Variant: Dim vs As Range
Dim lngType As Long
 
Application.ScreenUpdating = False
 
Set r = Selection
If IsMissing(Rngs) Then Rngs(0) = "초기화범위"
 
If UBound(Rngs()) > 0 Then
ClearArrRngs:
    For Each Rng In Rngs
        If IsObject(Rng) Then
            lngType = 0
            For Each a In Rng
            GoTo ClearRng
ClearNextRng:
            Next
        Else
            If IsArray(Rng) Then
            lngType = 1
                For Each v In Rng
                    If IsObject(v) Then a = v Else Set a = Range(v)
                    GoTo ClearRng
ClearNextMixedRng:
                Next
            Else
            lngType = 4
                Set a = Range(Rng)
                GoTo ClearRng
ClearNextMixedStr:
            End If
        End If
    Next
Else
    If IsObject(Rngs(0)) Then
        Set a = Rngs(0)
        lngType = 3
        GoTo ClearRng
    Else
        If IsArray(Rngs) Then GoTo ClearArrRngs
        If InStr(1, ",", CStr(Rngs(0))) > 0 Then
            lngType = 2
            vs = Split(CStr(Rngs(0)), ",")
            For Each Rng In vs
                Set a = Range(Trim(Rng))
                GoTo ClearRng
ClearNextStr:
            Next
        Else
            Set a = Range(CStr(Rngs(0)))
            lngType = 3
            GoTo ClearRng
        End If
    End If
End If
 
GoTo Finally
 
ClearRng:
a.Parent.Activate
a.Select
Selection.ClearContents
If lngType = 0 Then GoTo ClearNextRng
If lngType = 1 Then GoTo ClearNextMixedRng
If lngType = 2 Then GoTo ClearNextStr
If lngType = 3 Then GoTo Finally
If lngType = 4 Then GoTo ClearNextMixedStr
 
Finally:
r.Parent.Activate
r.Select
Application.ScreenUpdating = True
 
End Sub