엑셀 vba 다중범위 Areas, 조사식창 이용

Sub 다중범위_Areas() '방법1)     MsgBox Selection.Address         '현재 선택된 셀들의 주소를 보여줌          '방법2)     MsgBox Selection.Address(0, 0)         '상대주소로 보여줌 '방법3)     MsgBox Selection.Areas(1).Address(0, 0)     MsgBox Selection.Areas(2).Address(0, 0)     MsgBox Selection.Areas(3).Address(0, 0)         '세 군대를 다중범위로 선택하였을 때         '순차적으로 영역의 범위를 보여줌          '방법4)     Dim c As Range     Dim Adr() '동적변수로 지정     Dim i As Long          For Each c In Selection.Areas         ReDim Preserve Adr(i)                 '유지   순차적         Adr(i) = c.Address(0, 0)                 '하나씩 주소를 입력         i = i + 1     Next          MsgBox "선택 범위" & vbCr & Join(Adr, vbCr)         'vbCr:줄바꿈      End Sub