선택된 범위를 변경하고 떨어진 영역 복사하기

개요

대개의 사용자가 다음 방법 중 하나를 사용하리라 생각합니다.

• 표 전체를 복사한 다음, '강동' 지역 데이터 삭제
• 표의 제목을 복사한 후 '강동' 이외 지역 복사
• 필터 기능 사용
• 피벗 테이블 사용

물론 이것 말고 다른 기발한(?) 방법을 사용하는 분들이 있을지도 모릅니다.

'Office 365' 버전을 사용하는 경우에는 다음과 같이 할 수도 있습니다. 만약 이런 식으로 일일이 지정해야 할 영역이 많은 상황이라면 편리할 수 있겠군요.

(1) 표 전체 영역을 범위로 지정합니다.

(2) <Ctrl> 키를 누른 채 선택을 제거할 영역을 드래그합니다(여기서는 A2:E5, A9:E13 영역).

(3) 이 상태에서 복사하여(<Ctrl + C>) 붙여넣기(<Ctrl + V>) 하면 선택된 영역만 복사됩니다.

다시 한 번 말씀드리지만, 이 기능은 'Office 365' 버전 사용자와 'Office 참가자 프로그램(Office Insider program)'에 가입되어 있어야 제대로 작동됩니다.

만약 이 조건에 해당하지 않는 경우라면 VBA로 코딩을 하면 가능합니다.

<Ctrl> 키를 이용하여 여러 범위를 선택하고, '다중 영역 복사' 버튼을 클릭한 다음, 붙여 넣을 셀을 클릭해 보세요.

다음은 예제 파일의 '다중 영역 복사' 버튼에 연결되어 있는 코드입니다(코드가 무지막지하죠?). 나중에 VBA를 공부한 후에 다시 살펴보면 이해되는 순간이 올 겁니다. 지금 단계에서는 코드를 복사해서 활용할 줄만 알아도 됩니다.

Sub MultiRangeCopy()
    Dim intHowManyAreas As Integer
    Dim i As Integer
    Dim intNotEmpty As Integer
    Dim lngTopRow As Long
    Dim intLeftColumn As Integer
    Dim lngRowOffset As Long
    Dim intColumnOffset As Integer
    Dim rngAreas() As Range
    Dim rngTarget As Range
    
    intHowManyAreas = Selection.Areas.Count
    ReDim rngAreas(1 To intHowManyAreas)
    
    For i = 1 To intHowManyAreas
        Set rngAreas(i) = Selection.Areas(i)
    Next
    
    lngTopRow = ActiveSheet.Rows.Count
    intLeftColumn = ActiveSheet.Columns.Count
    
    With rngAreas(1)
        If .Row < lngTopRow Then lngTopRow = .Row
        If .Column < intLeftColumn Then intLeftColumn = .Column
    End With
    
    Set rngTarget = Application.InputBox("붙여넣을 좌측 상단 셀 선택:", Type:=8)
    Set rngTarget = rngTarget.Cells(1)
    
    For i = 1 To intHowManyAreas
        lngRowOffset = rngAreas(i).Row - lngTopRow
        intColumnOffset = rngAreas(i).Column - intLeftColumn
            
        intNotEmpty = intNotEmpty + Application. _
            CountA(Range(rngTarget.Offset(lngRowOffset, intColumnOffset), _
            rngTarget.Offset(lngRowOffset + rngAreas(i).Rows.Count - 1, _
            intColumnOffset + rngAreas(i).Columns.Count - 1)))
    Next i
    
    If intNotEmpty <> 0 Then
        If MsgBox("기존 데이터에 겹쳐 쓸까요?", vbQuestion + vbYesNo) <> vbYes Then
            Exit Sub
        End If
    End If
    
    For i = 1 To intHowManyAreas
        lngRowOffset = rngAreas(i).Row - lngTopRow
        intColumnOffset = rngAreas(i).Column - intLeftColumn
        rngAreas(i).Copy rngTarget.Offset(lngRowOffset, intColumnOffset)
    Next i
End Sub

이번 강좌는 VBA가 아니라 엑셀 강좌 시간인 관계로 코드에 대한 설명은 건너뜁니다.

정리 — 떨어진 영역 복사하기

방법	핵심 동작	조건
Ctrl 선택 해제	전체 선택 후 Ctrl+드래그로 제외 영역 선택 해제 → Ctrl+C/V	Office 365 + Office Insider Program
VBA 매크로	Selection.Areas로 여러 영역을 읽어 상대 위치대로 복사	모든 버전 (VBA 사용 가능 환경)

자주 묻는 질문 (FAQ)

마치며

VBA에 대한 기초 지식을 공부하실 분은 아이엑셀러 닷컴 사이트 상단 메뉴에서 [Excel 강의] - [Excel 입문]을 먼저 보시면 이해하기 쉽습니다.