Great code but wondered how I can paste values rather than just paste?
Thanks :)
예를 들어 큰 워크 시트가 있는데 이제 선택한 범위 중 일부만 복사하고 다른 워크 시트에 배포하려고합니다. 그러나 여러 범위를 선택하고 복사를 클릭하면 "이 명령은 여러 선택에 사용할 수 없습니다."라는 메시지가 표시됩니다. 이 조건에서 선택한 여러 범위를 어떻게 빠르게 복사합니까? 다음은이 작업을 해결하기위한 몇 가지 요령입니다.
의 도움으로 클립 보드, 선택한 모든 범위를 한 번에 다른 범위 또는 워크 시트에 붙여 넣을 수 있습니다. 다음과 같이하십시오 :
1. 딸깍 하는 소리 Home > 에서 클립 보드 표시 할 그룹 클립 보드 창.. 스크린 샷보기 :
2. 그런 다음 필요한 선택한 범위를 하나씩 복사하십시오. 동시에 복사 된 범위가 클립 보드 창. 위의 스크린 샷 참조 :
3. 복사 된 모든 범위를 붙여 넣을 대상 범위의 첫 번째 셀을 선택하고 모두 붙여 넣기 버튼의 클립 보드 창유리.
그런 다음 복사 된 모든 범위를 지정된 대상 범위에 붙여 넣었습니다.
서로 다른 통합 문서의 수십 개의 시트를 하나의 시트로 결합하는 것은 지루할 수 있습니다. 그러나 Excel 용 Kutools를 사용하면 결합 (워크 시트 및 통합 문서) 유틸리티를 사용하면 몇 번의 클릭만으로 완료 할 수 있습니다!
30 일 전체 기능 무료 평가판!
Excel 용 Kutools -300 개 이상의 Excel 용 편리한 도구가 포함되어 있습니다. 30 일 전체 기능 무료 평가판, 신용 카드 필요 없음! 이제 그것을 잡아
VBA 코드를 사용하면 선택한 여러 범위를 복사하여 다른 워크 시트에 붙여 넣을 수도 있습니다.
1. 지주 Ctrl 키 키를 누르고 사용하려는 인접하지 않은 여러 범위를 선택하십시오.
2. 프레스 다른 + F11 열려면 동시에 키 애플리케이션 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈을 클릭하고 모듈에 다음 코드를 입력합니다.
Option Explicit Sub CopyMultipleSelection () Dim SelAreas () As 범위 Dim PasteRange As 범위 Dim UpperLeft As 범위 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 TypeName (Selection) <> "Range"Then MsgBox "복사 할 범위를 선택합니다. 다중 선택이 허용됩니다." Exit Sub End If '영역을 별도의 Range 개체로 저장 NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next'왼쪽 상단 결정 다중 선택의 셀 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) '붙여 넣기 주소 가져 오기 오류시 다시 시작 다음 Set PasteRange = Application.InputBox _ (Prompt : = "붙여 넣을 왼쪽 상단 셀 지정 range : ", _ Title : ="복사 다중 선택 ", _ Type : = 8) On Error GoTo 0 '취소하면 종료 If TypeName (PasteRange) <>"Range "Then Exit Sub'왼쪽 상단 셀만 used Set PasteRange = PasteRange.Range ( "A1") '기존 데이터의 붙여 넣기 범위 확인 NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row-TopRow ColOffset = Sel Areas (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 NonEmptyCellCount <> 0 Then _ If MsgBox ( "Overwrite existing data?", vbQuestion + vbYesNo, _ "복사 다중 선택 ") <> vbYes Then Exit Sub '각 영역 복사 및 붙여 넣기 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row-TopRow ColOffset = SelAreas (i) .Column-LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) 다음 i End Sub
3. 그런 다음 달리기 버튼을 눌러 코드를 실행합니다.
4. 이제 개구부에 범위를 붙여 넣을 셀을 지정하십시오. 다중 선택 복사 대화 상자를 클릭하고 OK 단추. 스크린 샷보기 :
그리고, 여러 범위 복사 ~의 유용성 Excel 용 Kutools 활성 워크 시트에서 여러 범위를 신속하게 쉽게 복사 할 수 있습니다. 다음과 같이하십시오 :
Excel 용 Kutools -300 개 이상의 Excel 용 편리한 도구가 포함되어 있습니다. 30 일 전체 기능 무료 평가판, 신용 카드 필요 없음! 이제 그것을 잡아
1. 키를 누르지 않고 사용하려는 범위를 하나씩 선택하십시오. Ctrl 키 키를 누른 다음 Kutools > 범위 복사. 스크린 샷보기 :
2. 에서 여러 범위 복사 대화 상자, 확인 전체 옵션에서 선택하여 붙여 넣기 섹션을 클릭하고 좋아 button. 위의 스크린 샷 참조 :
참고 : 행 높이와 열 너비를 원래 범위로 유지하려면 행 높이 포함 옵션 및 열 너비 포함 여러 범위 복사 대화 상자의 옵션.
3. 다음 프롬프트 상자에 범위를 붙여 넣을 셀을 지정하고 OK 버튼을 클릭합니다.
이제 선택한 모든 범위가 원래 선택과 동일한 행 높이 및 열 너비로 지정된 셀에 붙여 넣어집니다.
다중 범위 복사 유틸리티에 대한 자세한 내용을 보려면 여기를 클릭하십시오.
Excel 용 Kutools -300 개 이상의 Excel 용 편리한 도구가 포함되어 있습니다. 30 일 전체 기능 무료 평가판, 신용 카드 필요 없음! 이제 그것을 잡아
Excel 용 Kutools는 또 다른 워크 시트 결합 Excel에서 쉽게 많은 워크 시트 또는 많은 통합 문서에서 여러 범위를 복사하는 유틸리티. 다음과 같이하십시오 :
Excel 용 Kutools -300 개 이상의 Excel 용 편리한 도구가 포함되어 있습니다. 30 일 전체 기능 무료 평가판, 신용 카드 필요 없음! 이제 그것을 잡아
1. 클릭 Kutools Plus > 결합.
2. 워크 시트 결합 – 1/3 단계 대화 상자 열기에서 통합 문서의 여러 워크 시트를 하나의 워크 시트로 결합 옵션을 클릭하고 다음 버튼을 클릭합니다.
3. 워크 시트 결합 – 2 단계 중 3 단계 대화 상자에서 다음과 같이하십시오.
(1) 통합 문서 목록 섹션을 클릭 한 다음 검색 각 워크 시트의 범위를 지정하려면 각 워크 시트 뒤에있는 버튼;
(2) 추가 버튼을 클릭하여 범위를 복사 할 다른 통합 문서를 추가 한 다음 위의 (1)을 반복하여 추가 된 통합 문서에서 범위를 지정합니다.
(3) 끝 버튼을 클릭합니다.
Excel 용 Kutools -300 개 이상의 Excel 용 편리한 도구가 포함되어 있습니다. 30 일 전체 기능 무료 평가판, 신용 카드 필요 없음! 이제 그것을 잡아
4. 그런 다음 Excel 용 Kutools 대화 상자가 나타나고 조합 시나리오 저장을 요청합니다. 클릭하십시오 가능 버튼 또는 아니 당신이 필요로하는 버튼.
지금까지 여러 워크 시트 또는 통합 문서에서 지정된 모든 범위를 복사하여 새 통합 문서에 붙여 넣었습니다.