คัดลอกข้อมูลไปยังสมุดงานอื่นใน Excel
บทความนี้จะแนะนำวิธีคัดลอกข้อมูลไปยังสมุดงานอื่นใน Microsoft Excel
- ย้ายหรือคัดลอกข้อมูลในสมุดงานเดียวกัน
- ย้ายหรือคัดลอกข้อมูลในสมุดงานอื่น
- ย้ายหรือคัดลอกข้อมูลโดยใช้ VBA
ย้ายหรือคัดลอกข้อมูลในสมุดงานเดียวกัน
ขั้นตอนแรกคือการเลือกแผ่นงานที่คุณต้องการย้ายหรือคัดลอก หากต้องการเลือกหลาย ๆ แผ่นเพียงเลือกแผ่นงานแผ่นแรกจากนั้นกดปุ่ม Control ค้างไว้ในขณะที่คลิกแผ่นงานเพิ่มเติมที่คุณต้องการคัดลอกบนแท็บ หน้าแรก ของแถบเครื่องมือด้านบนค้นหากลุ่ม เซลล์ และคลิก รูปแบบ ภายใต้ จัดระเบียบแผ่น งานคลิก ย้ายหรือคัดลอกแผ่นงาน
กล่องโต้ตอบจะเปิดขึ้น ในรายการ ก่อนหน้า คุณสามารถคลิกแผ่นงาน ก่อนหน้า ซึ่งคุณต้องการแทรกแผ่นงานที่ย้ายหรือคัดลอกหรือคุณสามารถคลิก ย้ายเพื่อ วางแผ่นงานหลังจากแผ่นงานสุดท้ายในสมุดงานของคุณ
หากต้องการ คัดลอก แผ่นงานแทนที่จะย้ายแผ่นงานให้เลือกกล่องกาเครื่องหมาย สร้างสำเนาที่ พบในกล่องโต้ตอบ ย้ายหรือคัดลอก
ย้ายหรือคัดลอกข้อมูลในสมุดงานอื่น
หากคุณต้องการย้ายหรือคัดลอกแผ่นงาน Excel ไปยังสมุดงานอื่นก่อนอื่นคุณต้องตรวจสอบให้แน่ใจว่าสมุดงานเป้าหมายเปิดอยู่ใน Microsoft Excel รุ่นเดียวกันเลือกแผ่นงานที่คุณต้องการย้ายหรือคัดลอก จากนั้นไปที่แท็บ หน้าแรก บนแถบเครื่องมือของคุณแล้วคลิกกลุ่ม เซลล์ > รูปแบบ ภายใต้ จัดระเบียบแผ่น งานคลิก ย้ายหรือคัดลอกแผ่นงาน
กล่องโต้ตอบจะเปิดขึ้น ในรายการ ถึงหนังสือ ให้เลือกเพื่อย้ายหรือคัดลอกแผ่นงานที่เลือกไปยังสมุดงานที่มีอยู่หรือเพื่อย้ายหรือคัดลอกแผ่นงานไปยังสมุดงานใหม่
ในรายการ ก่อนหน้า คุณสามารถคลิกแผ่นงาน ก่อนหน้า ซึ่งคุณต้องการแทรกแผ่นงานที่ย้ายหรือคัดลอกหรือคุณสามารถคลิก ย้ายเพื่อ วางแผ่นงานหลังจากแผ่นงานสุดท้ายในสมุดงานของคุณ
ย้ายหรือคัดลอกข้อมูลโดยใช้ VBA
Sub CopyOpenItems ()
'
'มาโคร CopyOpenItems
'คัดลอกรายการคงค้างไปยังแผ่นงาน
'
'แป้นพิมพ์ลัด: Ctrl + Shift + O
'
ติ่ม wbTarget เป็นเวิร์กบุ๊กของเวิร์กบุ๊กที่จะวางข้อมูล
Dim wbThis As Workbook 'เวิร์กบุ๊กที่จะคัดลอกข้อมูล
Dim strName As String 'ชื่อของแผ่นงานต้นฉบับ / สมุดงานเป้าหมาย
'ตั้งค่าเป็นสมุดงานที่ใช้งานอยู่ในปัจจุบัน (สมุดที่มา)
ตั้งค่า wbThis = ActiveWorkbook
'รับแผ่นงานที่ใช้งานของหนังสือ
strName = ActiveSheet.Name
'เปิดสมุดงานที่มีชื่อเดียวกันกับชื่อแผ่นงาน
ตั้งค่า wbTarget = สมุดงานเปิด ("C: \ filepath \" & strName & ".xlsx")
'เลือกเซลล์ A1 ในหนังสือเป้าหมาย
wbTarget.Range ( "A1"). เลือก
'ล้างค่าที่มีอยู่ในรูปแบบหนังสือเป้าหมาย
wbTarget.Range ( "A1: M51") ClearContents.
'เปิดใช้งานสมุดที่มา
wbThis.Activate
ล้างสิ่งใด ๆ บนคลิปบอร์ดเพื่อเพิ่มหน่วยความจำที่มีอยู่ให้มากที่สุด
Application.CutCopyMode = False
'คัดลอกช่วงจากสมุดที่มา
wbThis.Range. ( "A12: M62") สำเนา
'วางข้อมูลในหนังสือเป้าหมาย
wbTarget.Range ( "A1"). PasteSpecial
ล้างสิ่งใด ๆ บนคลิปบอร์ดเพื่อเพิ่มหน่วยความจำที่มีอยู่ให้มากที่สุด
Application.CutCopyMode = False
'บันทึกหนังสือเป้าหมาย
wbTarget.Save
ปิดสมุดงาน
wbTarget.Close
'เปิดใช้งานสมุดที่มาอีกครั้ง
wbThis.Activate
'หน่วยความจำที่ชัดเจน
ตั้ง wbTarget = ไม่มีอะไร
ตั้ง wbThis = ไม่มีอะไร
ส่วนท้าย