Excel에서 여러 선택 영역 또는 범위를 어떻게 복사합니까?

클립보드의 도움으로 선택한 모든 범위를 한 번에 다른 범위나 워크시트에 붙여넣을 수 있습니다. 아래 단계를 따르세요:

1. 클릭하세요 홈 > 탭의 클립보드 그룹에서 클립보드 창을 표시합니다..스크린샷 보기:

2. 그리고 필요한 선택된 범위를 하나씩 복사하세요. 동시에 복사된 범위는 클립보드 창에 나타납니다. 위 스크린샷 참조:

3. 복사된 모든 범위를 붙여넣을 대상 범위의 첫 번째 셀을 선택하고 클립보드 창에서 모두 붙여넣기 버튼을 클릭하세요.

그러면 복사된 모든 범위가 지정된 대상 범위에 붙여넣어집니다.

여러 워크시트/워크북에서 선택된 항목들을 하나의 워크시트/워크북으로 쉽게 결합하기

다양한 워크북에서 수십 개의 시트를 하나의 시트로 결합하는 것은 지루할 수 있습니다. 하지만 Kutools for Excel의 결합 (워크시트 및 워크북) 유틸리티를 사용하면 몇 번의 클릭만으로 작업을 완료할 수 있습니다!

VBA 코드를 사용하면 여러 선택된 범위를 복사하고 다른 워크시트에 붙여넣을 수도 있습니다.

1. Ctrl 키를 누른 상태에서 복사하려는 여러 비인접 범위를 선택하세요.

2. Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 열고, 삽입 > 모듈을 클릭한 후 다음 코드를 모듈에 입력하세요:

Option Explicit
Sub CopyMultipleSelection()
Dim SelAreas() As Range
Dim PasteRange As Range
Dim UpperLeft As Range
Dim NumAreas As Integer, i As Integer
Dim TopRow As Long, LeftCol As Integer
Dim RowOffset As Long, ColOffset As Integer
Dim NonEmptyCellCount As Integer
' Exit if a range is not selected
If TypeName(Selection) < > "Range" Then
MsgBox "Select the range to be copied. A multiple selection is allowed."
Exit Sub
End If
' Store the areas as separate Range objects
NumAreas = Selection.Areas.Count
ReDim SelAreas(1 To NumAreas)
For i = 1 To NumAreas
Set SelAreas(i) = Selection.Areas(i)
Next
' Determine the upper left cell in the multiple selection
TopRow = ActiveSheet.Rows.Count
LeftCol = ActiveSheet.Columns.Count
For i = 1 To NumAreas
If SelAreas(i).Row < TopRow Then TopRow = SelAreas(i).Row
If SelAreas(i).Column < LeftCol Then LeftCol = SelAreas(i).Column
Next
Set UpperLeft = Cells(TopRow, LeftCol)
' Get the paste address
On Error Resume Next
Set PasteRange = Application.InputBox _
(Prompt:="Specify the upper left cell for the paste range:", _
Title:="Copy Mutliple Selection", _
Type:=8)
On Error GoTo 0
' Exit if canceled
If TypeName(PasteRange) < > "Range" Then Exit Sub
' Make sure only the upper left cell is used
Set PasteRange = PasteRange.Range("A1")
' Check paste range for existing data
NonEmptyCellCount = 0
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
NonEmptyCellCount = NonEmptyCellCount + _
Application.CountA(Range(PasteRange.Offset(RowOffset, ColOffset), _
PasteRange.Offset(RowOffset + SelAreas(i).Rows.Count - 1, _
ColOffset + SelAreas(i).Columns.Count - 1)))
Next i
' If paste range is not empty, warn user
If NonEmptyCellCount < > 0 Then _
If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _
"Copy Multiple Selection") < > vbYes Then Exit Sub
' Copy and paste each area
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
SelAreas(i).Copy PasteRange.Offset(RowOffset, ColOffset)
Next i
End Sub

3. 그런 다음 실행 버튼을 클릭하여 코드를 실행합니다.

4. 그리고 열리는 대화 상자에서 범위를 붙여넣을 셀을 지정하세요. 여러 선택 영역 복사하기 대화 상자에서 확인 버튼을 클릭하세요. 스크린샷 보기:

Kutools for Excel의 여러 범위 복사 유틸리티를 사용하면 활성 워크시트에서 여러 범위를 쉽게 빠르게 복사할 수 있습니다. 아래 단계를 따르세요:

1. 원하는 범위를 하나씩 선택하세요 ( Ctrl 키를 누르지 않고), 그리고 Kutools > 범위 복사를 클릭하세요. 스크린샷 보기:

2. 여러 범위 복사 대화 상자에서 특수 붙여넣기 섹션에서 모든 옵션을 선택하고 확인 버튼을 클릭하세요. 위 스크린샷 참조:

참고: 원래 범위와 같은 행 높이와 열 너비를 유지하려면 여러 범위 복사 대화 상자에서 행 높이 포함 옵션과 열 너비 포함 옵션을 선택하세요.

3. 그리고 다음 프롬프트 상자에서 범위를 붙여넣을 셀을 지정하고 확인 버튼을 클릭하세요.

이제 선택된 모든 범위가 원래 선택 영역과 동일한 행 높이와 열 너비로 지정된 셀에 붙여넣어집니다.

여러 범위 복사 유틸리티에 대한 자세한 정보는 여기를 클릭하세요       

Kutools for Excel은 여러 워크시트 또는 여러 워크북에서 여러 범위를 쉽게 복사할 수 있는 또 다른 워크시트 결합 유틸리티를 제공합니다. 아래 단계를 따르세요:

1. Kutools Plus > 결합을 클릭하세요.

2. 열리는 결합 워크시트 – 3단계 중 1단계 대화 상자에서 여러 워크북의 워크시트를 하나의 워크시트로 결합하기 옵션을 선택하고 다음 버튼을 클릭하세요.

3. 결합 워크시트 – 3단계 중 2단계 대화 상자에서 아래 단계를 수행하세요:

(1) 워크북 목록 섹션에서 워크북을 선택하고 각 워크시트에서 범위를 지정하기 위해 워크북 목록 섹션에서 찾아보기 버튼을 클릭하세요.
(2) 추가 버튼을 클릭하여 범위를 복사할 다른 워크북을 추가하고 위의 (1) 단계를 반복하여 추가된 워크북에서 범위를 지정하세요. 추가 버튼을 클릭하여 범위를 복사할 다른 워크북을 추가하고 위의 (1) 단계를 반복하여 추가된 워크북에서 범위를 지정하세요.
(3) 완료 버튼을 클릭하세요. 완료 버튼.

4. 그런 다음 Kutools for Excel 대화 상자가 나타나 조합 시나리오를 저장할지 묻습니다. 필요에 따라 예 또는 아니요 버튼을 클릭하세요.

지금까지 여러 워크시트 또는 워크북에서 지정된 모든 범위가 새 워크북에 복사 및 붙여넣어졌습니다.