ด้วยความช่วยเหลือของ คลิปบอร์ดคุณสามารถวางช่วงที่เลือกทั้งหมดลงในช่วงหรือแผ่นงานอื่นได้พร้อมกัน กรุณาดำเนินการดังต่อไปนี้:

1. คลิก หน้าแรก > ใน คลิปบอร์ด จัดกลุ่มเพื่อแสดงไฟล์ คลิปบอร์ด ขนมปัง.. ดูภาพหน้าจอ:

2. จากนั้นคัดลอกช่วงที่เลือกที่คุณต้องการทีละรายการ ในเวลาเดียวกันช่วงที่คัดลอกได้ปรากฏในไฟล์ คลิปบอร์ด ขนมปัง. ดูภาพหน้าจอด้านบน:

3. เลือกเซลล์แรกของช่วงปลายทางที่คุณจะวางช่วงที่คัดลอกทั้งหมดแล้วคลิก วางทั้งหมด ปุ่มใน คลิปบอร์ด บานหน้าต่าง

จากนั้นช่วงที่คัดลอกทั้งหมดจะถูกวางลงในช่วงปลายทางที่ระบุ

รวมการเลือกหลายอย่างจากแผ่นงาน / สมุดงานจำนวนมากเป็นแผ่นงาน / สมุดงานเดียวได้อย่างง่ายดาย

อาจเป็นเรื่องน่าเบื่อที่จะรวมแผ่นงานหลายสิบแผ่นจากสมุดงานต่างๆไว้ในแผ่นงานเดียว แต่ด้วย Kutools for Excel's รวม (แผ่นงานและสมุดงาน) ยูทิลิตี้คุณสามารถทำได้ด้วยการคลิกเพียงไม่กี่ครั้ง!

ด้วยรหัส 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 ปุ่ม. ดูภาพหน้าจอ:

พื้นที่ คัดลอกหลายช่วง ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยให้คุณคัดลอกหลายช่วงจากแผ่นงานที่ใช้งานอยู่ได้อย่างรวดเร็ว กรุณาดำเนินการดังต่อไปนี้:

1. เลือกช่วงที่คุณต้องการใช้ทีละรายการโดยไม่ต้องกดปุ่ม Ctrl จากนั้นคลิก Kutools > ช่วงการคัดลอก. ดูภาพหน้าจอ:

2. ใน คัดลอกหลายช่วง กล่องโต้ตอบตรวจสอบ ทั้งหมด ตัวเลือกจาก วางแบบพิเศษ ส่วนและคลิกปุ่ม ตกลงขutton ดูภาพหน้าจอด้านบน:

หมายเหตุ หากคุณต้องการให้ความสูงของแถวและความกว้างของคอลัมน์เป็นช่วงเดิมโปรดตรวจสอบ รวมถึงความสูงของแถว ตัวเลือกและ รวมถึงความกว้างของคอลัมน์ ในกล่องโต้ตอบคัดลอกหลายช่วง

3. และระบุเซลล์เพื่อวางช่วงในกล่องพร้อมต์ต่อไปนี้แล้วคลิก OK ปุ่ม

และตอนนี้ช่วงที่เลือกทั้งหมดจะถูกวางลงในเซลล์ที่ระบุโดยมีความสูงของแถวและความกว้างของคอลัมน์เดียวกันกับการเลือกเดิม

คลิกที่นี่เพื่อดูข้อมูลเพิ่มเติมเกี่ยวกับยูทิลิตี้ Copy Multiple Ranges       

Kutools for Excel ให้อีก รวมแผ่นงาน ยูทิลิตี้ในการคัดลอกหลายช่วงจากหลายแผ่นงานหรือสมุดงานจำนวนมากได้อย่างง่ายดายใน Excel กรุณาดำเนินการดังต่อไปนี้:

1 คลิก Kutools พลัส > รวมกัน.

2. ในกล่องโต้ตอบเปิด Combine Worksheets - ขั้นตอนที่ 1 จาก 3 โปรดตรวจสอบไฟล์ รวมแผ่นงานหลายแผ่นจากสมุดงานเป็นแผ่นงานเดียว ตัวเลือกและคลิกที่ ถัดไป ปุ่ม

3. ในกล่องโต้ตอบรวมแผ่นงาน - ขั้นตอนที่ 2 จาก 3 โปรดทำดังนี้:

(1) เลือกสมุดงานในไฟล์ รายการสมุดงาน แล้วคลิกไฟล์ หมวดหมู่สินค้า ปุ่มด้านหลังแต่ละแผ่นงานเพื่อระบุช่วงจากแต่ละแผ่นงาน
(2) คลิกไฟล์ เพิ่ม ปุ่มเพื่อเพิ่มสมุดงานอื่น ๆ ที่คุณจะคัดลอกช่วงจากนั้นทำซ้ำด้านบน (1) เพื่อระบุช่วงในสมุดงานที่เพิ่ม
(3) คลิกไฟล์ เสร็จสิ้น ปุ่ม

4. จากนั้นกล่องโต้ตอบ Kutools for excel จะปรากฏขึ้นและขอให้บันทึกสถานการณ์การรวมกัน กรุณาคลิกที่ไฟล์ ใช่ หรือ ไม่ ปุ่มตามที่คุณต้องการ

จนถึงขณะนี้มีการคัดลอกและวางช่วงที่ระบุทั้งหมดจากหลายแผ่นงานหรือสมุดงานลงในสมุดงานใหม่