의 도움으로 클립 보드, 선택한 모든 범위를 한 번에 다른 범위 또는 워크 시트에 붙여 넣을 수 있습니다. 다음과 같이하십시오 :

1. 딸깍 하는 소리 홈페이지 > FBI 증오 범죄 보고서 클립 보드 표시 할 그룹 클립 보드 창.. 스크린 샷보기 :

2. 그런 다음 필요한 선택한 범위를 하나씩 복사하십시오. 동시에 복사 된 범위가 클립 보드 창. 위의 스크린 샷 참조 :

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

그런 다음 복사 된 모든 범위를 지정된 대상 범위에 붙여 넣었습니다.

여러 워크 시트 / 워크 북의 여러 선택 항목을 단일 워크 시트 / 워크 북으로 쉽게 결합

서로 다른 통합 문서의 수십 개의 시트를 하나의 시트로 결합하는 것은 지루할 수 있습니다. 그러나 Excel 용 Kutools를 사용하면 결합 (워크 시트 및 통합 문서) 유틸리티를 사용하면 몇 번의 클릭만으로 완료 할 수 있습니다!

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

1. 지주 Ctrl 키 키를 누르고 사용하려는 인접하지 않은 여러 범위를 선택하십시오.

2. 프레스 다른 + F11 열려면 동시에 키 애플리케이션 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈을 클릭하고 모듈에 다음 코드를 입력합니다.

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. 이제 개구부에 범위를 붙여 넣을 셀을 지정하십시오. 다중 선택 복사 대화 상자를 클릭하고 OK 단추. 스크린 샷보기 :

이 어플리케이션에는 XNUMXµm 및 XNUMXµm 파장에서 최대 XNUMXW의 평균 출력을 제공하는 여러 범위 복사 ~의 유용성 Excel 용 Kutools 활성 워크 시트에서 여러 범위를 신속하게 쉽게 복사 할 수 있습니다. 다음과 같이하십시오 :

1. 키를 누르지 않고 사용하려는 범위를 하나씩 선택하십시오. Ctrl 키 키를 누른 다음 쿠툴 > 범위 복사. 스크린 샷보기 :

2. 에서 여러 범위 복사 대화 상자, 확인 All 옵션에서 선택하여 붙여 넣기 섹션을 클릭하고 좋아 button. 위의 스크린 샷 참조 :

참고 : 행 높이와 열 너비를 원래 범위로 유지하려면 행 높이 포함 옵션 및 열 너비 포함 여러 범위 복사 대화 상자의 옵션.

3. 다음 프롬프트 상자에 범위를 붙여 넣을 셀을 지정하고 OK 버튼을 클릭합니다.

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

다중 범위 복사 유틸리티에 대한 자세한 내용을 보려면 여기를 클릭하십시오.       

Excel 용 Kutools는 또 다른 워크 시트 결합 Excel에서 쉽게 많은 워크 시트 또는 많은 통합 문서에서 여러 범위를 복사하는 유틸리티. 다음과 같이하십시오 :

1. 클릭 쿠툴즈 플러스 > 결합.

2. 워크 시트 결합 – 1/3 단계 대화 상자 열기에서 통합 문서의 여러 워크 시트를 하나의 워크 시트로 결합 옵션을 클릭하고 다음 보기 버튼을 클릭합니다.

3. 워크 시트 결합 – 2 단계 중 3 단계 대화 상자에서 다음과 같이하십시오.

(1) 통합 문서 목록 섹션을 클릭 한 다음 검색 각 워크 시트의 범위를 지정하려면 각 워크 시트 뒤에있는 버튼;
(2) 추가 버튼을 클릭하여 범위를 복사 할 다른 통합 문서를 추가 한 다음 위의 (1)을 반복하여 추가 된 통합 문서에서 범위를 지정합니다.
(3) 마감재 버튼을 클릭합니다.

4. 그런 다음 Excel 용 Kutools 대화 상자가 나타나고 조합 시나리오 저장을 요청합니다. 클릭하십시오 가능 버튼 또는 아니 당신이 필요로하는 버튼.

지금까지 여러 워크 시트 또는 통합 문서에서 지정된 모든 범위를 복사하여 새 통합 문서에 붙여 넣었습니다.