วิธีคัดลอกการเลือกหรือช่วงหลายรายการใน Excel
ตัวอย่างเช่นคุณมีเวิร์กชีตขนาดใหญ่และตอนนี้คุณต้องการคัดลอกเฉพาะบางช่วงที่เลือกและแจกจ่ายไปยังเวิร์กชีตอื่น แต่เมื่อคุณเลือกหลายช่วงและคลิกคัดลอกจะมีกล่องโต้ตอบพร้อมต์เพื่อเตือนคุณว่า“ คำสั่งนั้นไม่สามารถใช้กับการเลือกหลายรายการได้” ในเงื่อนไขนี้คุณจะคัดลอกช่วงที่เลือกหลาย ๆ ช่วงอย่างรวดเร็วได้อย่างไร นี่คือเทคนิคบางอย่างสำหรับคุณในการแก้ปัญหานี้
- คัดลอกช่วงที่เลือกหลายรายการด้วยคลิปบอร์ด
- คัดลอกช่วงที่เลือกหลายรายการด้วยรหัส VBA
- คัดลอกช่วงที่เลือกหลายรายการจากแผ่นงานเดียว
- คัดลอกหลายช่วงจากแผ่นงาน / สมุดงานจำนวนมาก
คัดลอกช่วงที่เลือกหลายรายการด้วยคลิปบอร์ด
ด้วยความช่วยเหลือของ คลิปบอร์ดคุณสามารถวางช่วงที่เลือกทั้งหมดลงในช่วงหรือแผ่นงานอื่นได้พร้อมกัน กรุณาดำเนินการดังต่อไปนี้:
1. คลิก หน้าแรก > ใน คลิปบอร์ด จัดกลุ่มเพื่อแสดงไฟล์ คลิปบอร์ด ขนมปัง.. ดูภาพหน้าจอ:
2. จากนั้นคัดลอกช่วงที่เลือกที่คุณต้องการทีละรายการ ในเวลาเดียวกันช่วงที่คัดลอกได้ปรากฏในไฟล์ คลิปบอร์ด ขนมปัง. ดูภาพหน้าจอด้านบน:
3. เลือกเซลล์แรกของช่วงปลายทางที่คุณจะวางช่วงที่คัดลอกทั้งหมดแล้วคลิก วางทั้งหมด ปุ่มใน คลิปบอร์ด บานหน้าต่าง
จากนั้นช่วงที่คัดลอกทั้งหมดจะถูกวางลงในช่วงปลายทางที่ระบุ
รวมการเลือกหลายอย่างจากแผ่นงาน / สมุดงานจำนวนมากเป็นแผ่นงาน / สมุดงานเดียวได้อย่างง่ายดาย
อาจเป็นเรื่องน่าเบื่อที่จะรวมแผ่นงานหลายสิบแผ่นจากสมุดงานต่างๆไว้ในแผ่นงานเดียว แต่ด้วย Kutools for Excel's รวม (แผ่นงานและสมุดงาน) ยูทิลิตี้คุณสามารถทำได้ด้วยการคลิกเพียงไม่กี่ครั้ง!
Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now
คัดลอกช่วงที่เลือกหลายรายการด้วยรหัส VBA
ด้วยรหัส 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 หากไม่ได้เลือกช่วงหาก TypeName (Selection) <> "Range" จากนั้น MsgBox "เลือกช่วงที่จะคัดลอกอนุญาตให้เลือกได้หลายรายการ" ออกจาก Sub End ถ้า 'จัดเก็บพื้นที่เป็น Range object แยกกัน NumAreas = Selection.Areas.Count ReDim SelAreas (1 ถึง NumAreas) สำหรับ i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' กำหนดด้านซ้ายบน เซลล์ในการเลือกหลายรายการ TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 ถึง NumAreas ถ้า SelAreas (i) .Row <TopRow จากนั้น TopRow = SelAreas (i) .Row ถ้า 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: = "ระบุเซลล์ด้านซ้ายบนสำหรับการวาง range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) On Error GoTo 0 'Exit if Cancel ถ้า TypeName (PasteRange) <>" Range "แล้ว Exit Sub' ตรวจสอบให้แน่ใจว่าเฉพาะเซลล์ด้านซ้ายบนเท่านั้น ใช้ Set PasteRange = PasteRange.Range ("A1") 'ตรวจสอบช่วงการวางสำหรับข้อมูลที่มีอยู่ NonEmptyCellCount = 0 สำหรับ i = 1 ถึง NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel พื้นที่ (i) คอลัมน์ - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (ช่วง (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColOffset + SelAreas (i) .Columns.Count - 1))) ถัดไป i 'หากช่วงการวางไม่ว่างเปล่าเตือนผู้ใช้ถ้า NonEmptyCellCount <> 0 แล้ว _ ถ้า MsgBox ("เขียนทับข้อมูลที่มีอยู่?", vbQuestion + vbYesNo, _ "คัดลอกการเลือกหลายรายการ ") <> vb ใช่แล้วออกจาก Sub 'คัดลอกและวางแต่ละพื้นที่สำหรับ i = 1 ถึง NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) ต่อไป i End Sub
3. จากนั้นคลิกปุ่ม วิ่ง ปุ่มเพื่อเรียกใช้รหัส
4. และตอนนี้โปรดระบุเซลล์เพื่อวางช่วงในช่องเปิด คัดลอกตัวเลือกหลายรายการ กล่องโต้ตอบแล้วคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:
คัดลอกช่วงที่เลือกได้อย่างรวดเร็วจากแผ่นงานเดียว
พื้นที่ คัดลอกหลายช่วง ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยให้คุณคัดลอกหลายช่วงจากแผ่นงานที่ใช้งานอยู่ได้อย่างรวดเร็ว กรุณาดำเนินการดังต่อไปนี้:
Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now
1. เลือกช่วงที่คุณต้องการใช้ทีละรายการโดยไม่ต้องกดปุ่ม Ctrl จากนั้นคลิก Kutools > ช่วงการคัดลอก. ดูภาพหน้าจอ:
2. ใน คัดลอกหลายช่วง กล่องโต้ตอบตรวจสอบ ทั้งหมด ตัวเลือกจาก วางแบบพิเศษ ส่วนและคลิกปุ่ม ตกลงขutton ดูภาพหน้าจอด้านบน:
หมายเหตุ หากคุณต้องการให้ความสูงของแถวและความกว้างของคอลัมน์เป็นช่วงเดิมโปรดตรวจสอบ รวมถึงความสูงของแถว ตัวเลือกและ รวมถึงความกว้างของคอลัมน์ ในกล่องโต้ตอบคัดลอกหลายช่วง
3. และระบุเซลล์เพื่อวางช่วงในกล่องพร้อมต์ต่อไปนี้แล้วคลิก OK ปุ่ม
และตอนนี้ช่วงที่เลือกทั้งหมดจะถูกวางลงในเซลล์ที่ระบุโดยมีความสูงของแถวและความกว้างของคอลัมน์เดียวกันกับการเลือกเดิม
คลิกที่นี่เพื่อดูข้อมูลเพิ่มเติมเกี่ยวกับยูทิลิตี้ Copy Multiple Ranges
Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now
คัดลอกหลายช่วงจากแผ่นงาน / สมุดงานจำนวนมาก
Kutools for Excel ให้อีก รวมแผ่นงาน ยูทิลิตี้ในการคัดลอกหลายช่วงจากหลายแผ่นงานหรือสมุดงานจำนวนมากได้อย่างง่ายดายใน Excel กรุณาดำเนินการดังต่อไปนี้:
Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now
1 คลิก Kutools พลัส > รวมกัน.
2. ในกล่องโต้ตอบเปิด Combine Worksheets - ขั้นตอนที่ 1 จาก 3 โปรดตรวจสอบไฟล์ รวมแผ่นงานหลายแผ่นจากสมุดงานเป็นแผ่นงานเดียว ตัวเลือกและคลิกที่ ถัดไป ปุ่ม
3. ในกล่องโต้ตอบรวมแผ่นงาน - ขั้นตอนที่ 2 จาก 3 โปรดทำดังนี้:
(1) เลือกสมุดงานในไฟล์ รายการสมุดงาน แล้วคลิกไฟล์ หมวดหมู่สินค้า ปุ่มด้านหลังแต่ละแผ่นงานเพื่อระบุช่วงจากแต่ละแผ่นงาน
(2) คลิกไฟล์ เพิ่ม ปุ่มเพื่อเพิ่มสมุดงานอื่น ๆ ที่คุณจะคัดลอกช่วงจากนั้นทำซ้ำด้านบน (1) เพื่อระบุช่วงในสมุดงานที่เพิ่ม
(3) คลิกไฟล์ เสร็จสิ้น ปุ่ม
Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now
4. จากนั้นกล่องโต้ตอบ Kutools for excel จะปรากฏขึ้นและขอให้บันทึกสถานการณ์การรวมกัน กรุณาคลิกที่ไฟล์ ใช่ หรือ ไม่ ปุ่มตามที่คุณต้องการ
จนถึงขณะนี้มีการคัดลอกและวางช่วงที่ระบุทั้งหมดจากหลายแผ่นงานหรือสมุดงานลงในสมุดงานใหม่
Demo: คัดลอกช่วงที่เลือกหลาย ๆ ช่วงจากแผ่นงานเดียว
Demo: คัดลอกช่วงที่เลือกหลาย ๆ ช่วงจากสมุดงาน / แผ่นงานจำนวนมาก
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!