Note: The other languages of the website are Google-translated. Back to English

วิธีการรวมหรือรวมแผ่นงานหรือสมุดงานไว้ในแผ่นงานเดียว

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

doc รวม 1

การนำทางอย่างรวดเร็ว

การรวมแผ่นงานทั้งหมดของสมุดงานที่ใช้งานอยู่เป็นแผ่นเดียวด้วย VBA
การรวมแผ่นงานหรือสมุดงานจำนวนมากไว้ในแผ่นงาน / สมุดงานเดียวด้วยการคลิก
การรวมตารางสองตารางเข้าเป็นหนึ่งเดียวและอัปเดตตามคอลัมน์ด้วยการคลิก
ดาวน์โหลดไฟล์ตัวอย่าง


การรวมแผ่นงานทั้งหมดของสมุดงานที่ใช้งานอยู่เป็นแผ่นเดียวด้วย VBA

ในส่วนนี้ฉันให้รหัส VBA ซึ่งจะสร้างแผ่นงานใหม่เพื่อรวบรวมแผ่นงานทั้งหมดของสมุดงานที่ใช้งานอยู่ในขณะที่คุณเรียกใช้

1. เปิดใช้งานสมุดงานที่คุณต้องการรวมแผ่นงานทั้งหมดจากนั้นกด + กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ในหน้าต่าง popping คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างสคริปต์โมดูลใหม่

3. คัดลอกโค้ดด้านล่างและวางลงในสคริปต์

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc รวม 2

4 กด F5 จากนั้นข้อมูลทั้งหมดในแผ่นงานจะถูกรวมเข้ากับแผ่นงานใหม่ที่ชื่อว่า Combined ซึ่งจะอยู่ด้านหน้าของแผ่นงานทั้งหมด


ot ย้าย

คุณต้องการเพิ่มค่าจ้างและมีเวลามากพอกับครอบครัวหรือไม่?

แท็บ Office ช่วยเพิ่มประสิทธิภาพของคุณได้ 50% ใน Microsoft Office กำลังทำงานอยู่ในขณะนี้

ไม่น่าเชื่อการทำงานกับเอกสารสองชุดขึ้นไปนั้นง่ายและรวดเร็วกว่าการทำงานในเอกสารเดียว

เมื่อเปรียบเทียบกับเบราว์เซอร์ที่รู้จักกันดีเครื่องมือแบบแท็บใน Office Tab มีประสิทธิภาพและมีประสิทธิภาพมากกว่า

ลดจำนวนการคลิกเมาส์และการพิมพ์แป้นพิมพ์ทุกวันสำหรับคุณบอกลามือเมาส์ได้เลย

หากคุณมักจะทำงานกับเอกสารหลายชุด Office Tab จะช่วยประหยัดเวลาได้อย่างดีเยี่ยม

30วันทดลองใช้ฟรีไม่ต้องใช้บัตรเครดิต

อ่านเพิ่มเติมดาวน์โหลดฟรีเดี๋ยวนี้


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

ด้วย VBA คุณสามารถรวมแผ่นงานในสมุดงานที่ใช้งานอยู่เท่านั้น แต่คุณจะรวมแผ่นงานระหว่างสมุดงานกับแผ่นงานหรือสมุดงานได้อย่างไร

รวมแผ่นงานข้ามสมุดงานเป็นแผ่นเดียว
doc รวม 18

ผสานแผ่นงานข้ามสมุดงานเป็นสมุดงานเดียว
doc รวม 3

สำหรับการแก้ไขงานนี้และเป็นไปตามข้อกำหนดอื่น ๆ ในการรวมแผ่นงานไฟล์ รวมกัน ฟังก์ชันได้รับการพัฒนาโดยมีสถานการณ์รวมกันสี่แบบ:

  • รวมแผ่นงานหรือสมุดงานหลายแผ่นเป็นแผ่นเดียว
  • รวมแผ่นงานหรือสมุดงานหลายแผ่นไว้ในสมุดงานเดียว
  • รวมแผ่นงานชื่อเดียวกันเป็นแผ่นเดียว
  • รวมค่าระหว่างแผ่นงานหรือสมุดงานไว้ในแผ่นงานเดียว

ที่นี่ใช้ตัวเลือกที่สองเป็นอินสแตนซ์:

รวมแผ่นงานหรือสมุดงานหลายแผ่นไว้ในสมุดงานเดียว

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1. เปิดใช้งาน Excel คลิก Kutools พลัส > รวมกันกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณว่าต้องปิดสมุดงานที่คุณต้องการรวม คลิก OK เพื่อดำเนินการต่อ
doc รวม 4
doc รวม 5

2 ใน รวมแผ่นงานขั้นตอนที่ 1 โต้ตอบตรวจสอบ รวมแผ่นงานหลายแผ่นจากสมุดงานไว้ในสมุดงานเดียว ตัวเลือก คลิก ต่อไป เพื่อไปยังขั้นตอนต่อไปของวิซาร์ด
doc รวม 6

3 คลิก เพิ่ม > เนื้อไม่มีมัน or โฟลเดอร์ เพื่อเพิ่มเวิร์กบุ๊กที่คุณต้องการรวมเข้ากับไฟล์ รายการสมุดงาน บานหน้าต่างจากนั้นคุณสามารถระบุได้ว่าจะรวมแผ่นงานใดเข้าด้วยกันโดยการตรวจสอบชื่อใน รายการแผ่นงาน บานหน้าต่าง คลิก ต่อไป เพื่อไปยังขั้นตอนสุดท้ายของวิซาร์ด
doc รวม 7

4. ในขั้นตอนนี้ระบุการตั้งค่าตามที่คุณต้องการ จากนั้นคลิก เสร็จสิ้น.
doc รวม 8

5. หน้าต่างจะปรากฏขึ้นเพื่อให้คุณเลือกโฟลเดอร์เพื่อวางสมุดงานรวมจากนั้นคลิก ลด.
doc รวม 9

ตอนนี้เวิร์กบุ๊กรวมเป็นสมุดงานเดียวแล้ว และที่ด้านหน้าของแผ่นงานทั้งหมดจะมีการสร้างแผ่นงานต้นแบบชื่อ Kutools for Excel ซึ่งจะแสดงข้อมูลบางอย่างเกี่ยวกับแผ่นงานและลิงก์สำหรับแต่ละแผ่นงาน
doc รวม 10

การสาธิต: รวมแผ่นงาน / สมุดงานไว้ในแผ่นงานหรือสมุดงานเดียว

Kutools for Excel: 200 + เครื่องมือที่มีประโยชน์ซึ่งช่วยลดความซับซ้อนของงานที่ซับซ้อนใน Excel ได้ในไม่กี่คลิก

บอกลามือเมาส์และกระดูกคอได้เลย

300 เครื่องมือขั้นสูงของ Kutools for Excel แก้ปัญหา 80% งาน Excel ในไม่กี่วินาที ดึงคุณออกจากการคลิกเมาส์นับพัน

จัดการกับสถานการณ์การทำงานกว่า 1500 สถานการณ์ได้อย่างง่ายดาย ไม่ต้องเสียเวลาค้นหาวิธีแก้ปัญหา มีเวลามากพอที่จะสนุกกับชีวิตของคุณ

ปรับปรุงประสิทธิภาพการทำงาน 80% ให้กับผู้คนที่มีประสิทธิภาพสูงกว่า 110000 คนทุกวัน รวมถึงคุณด้วย

ไม่ต้องทรมานกับสูตรเจ็บปวดและ VBA อีกต่อไปให้สมองของคุณได้พักผ่อนและมีอารมณ์ในการทำงานที่สนุกสนาน

30วันทดลองใช้ฟรีพร้อมคุณสมบัติเต็มรูปแบบ 30วันคืนเงินโดยไม่มีเหตุผล

ร่างกายที่ดีขึ้นสร้างชีวิตที่ดีขึ้น


การรวมตารางสองตารางเข้าเป็นหนึ่งเดียวและอัปเดตตามคอลัมน์ด้วยการคลิก

หากคุณต้องการรวมสองตารางเป็นหนึ่งเดียวและอัปเดตข้อมูลตามคอลัมน์ตามภาพด้านล่างนี้คุณสามารถลองใช้ไฟล์ ตารางผสาน ประโยชน์ของ Kutools สำหรับ Excel.
doc รวม 11

Kutools for Excel: Add-in ของ Excel ที่มีประโยชน์มากกว่า 200 รายการเพื่อลดความซับซ้อนของงานที่ซับซ้อนลงในไม่กี่คลิกใน Excel

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1 คลิก Kutools พลัส > ตารางผสาน การเปิดใช้งาน ตารางผสาน ตัวช่วยสร้าง
doc รวม 12

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

3. ตรวจสอบคอลัมน์หลักที่คุณต้องการอัปเดตข้อมูลในตารางหลักตาม คลิก ต่อไป.
doc รวม 14

4. จากนั้นตรวจสอบคอลัมน์ในตารางหลักที่คุณต้องการอัปเดตข้อมูลตามตารางการค้นหา คลิก ต่อไป.
doc รวม 15

5. ในขั้นตอนที่ 4 ของวิซาร์ดตรวจสอบคอลัมน์ที่คุณต้องการเพิ่มจากตารางการค้นหาไปยังตารางหลัก คลิก ต่อไป.
doc รวม 16

6. ในขั้นตอนสุดท้ายของวิซาร์ดให้ระบุตัวเลือกการตั้งค่าตามที่คุณต้องการ จากนั้นคลิก เสร็จสิ้น.
doc รวม 17

ตอนนี้ตารางหลักได้รับการอัปเดตข้อมูลและเพิ่มข้อมูลใหม่ตามตารางการค้นหา

การสาธิต: รวมแผ่นงาน / สมุดงานไว้ในแผ่นงานหรือสมุดงานเดียว

Kutools for Excel: 200 + เครื่องมือที่มีประโยชน์ซึ่งช่วยลดความซับซ้อนของงานที่ซับซ้อนใน Excel ได้ในไม่กี่คลิก


ดาวน์โหลดไฟล์ตัวอย่าง

ตัวอย่าง


เครื่องมือเพิ่มประสิทธิภาพที่แนะนำ

แท็บ Office - การเรียกดูแบบแท็บการแก้ไขการจัดการเอกสารใน Microsoft Office 2019-2003 และ Office 365


แท็บสำนักงาน

Add-in ระดับมืออาชีพสำหรับการเร่ง Excel 2019-2007 ลดงานชั่วโมงเป็นวินาที

Add-in นี้ประกอบด้วยกลุ่มวิชาชีพหลายสิบกลุ่มโดยมีตัวเลือกมากกว่า 300 รายการจะทำให้งานประจำวันส่วนใหญ่ของคุณเป็นไปโดยอัตโนมัติและเพิ่มประสิทธิภาพการทำงานของคุณอย่างน้อย 50% เช่นกลุ่มของตัวเลือกในคลิกเดียวและการแปลงเป็นกลุ่ม
ตอนนี้เป็นโอกาสของคุณที่จะเร่งความเร็วตัวเองด้วย Kutools for Excel!


จัดเรียงความคิดเห็นโดย
ความคิดเห็น (168)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้ฟังก์ชันมาโครแรกของคุณ ว้าว! ขอบคุณสำหรับการโพสต์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันคิดว่ารหัส 'Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Select' ไม่ต้องอยู่ตรงนั้น ในส่วนของฉัน สิ่งที่ทำคือเลือกแถวที่สองเป็นต้นไป โดยขาดแถวแรก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ผมมีปัญหาเดียวกัน. ไม่รวมแถวแรกจากแผ่นงานที่สองที่เพิ่ม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กำจัดส่วนหัวเพื่อไม่ให้มีส่วนหัวที่ซ้ำกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้อย่างมีเสน่ห์ ขอบคุณสำหรับการแบ่งปัน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ! มาโครทำงานได้อย่างสมบูรณ์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันไม่รู้วิธีใช้ฟังก์ชัน VBN ใน excel คุณช่วยได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สุดยอด ขอบคุณครับ!!! มีประโยชน์มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มาโครหนึ่งทำงานได้ดี ขอบคุณ!! มันเจ๋งมาก!!!! :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โปรดทราบว่าสิ่งนี้ถูกจำกัดด้วยขีดจำกัด 65 แถว หากคุณต้องการเพิ่มช่วง Selection.Copy Destination:=Sheets(1).Range("A65536")).End(xlUp)(2) ช่วงเพื่อแก้ไขปัญหา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เครื่องมือที่ยอดเยี่ยม แต่ไม่รวมแผ่นงานทั้งหมด 21 แผ่น ฉันจะขยายช่วงได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บันทึก!!! คุณต้องระวังแมโคร.. มันจะทำงานหากข้อมูลของคุณมีการไหลของข้อมูลอย่างต่อเนื่องและไม่มีแถวว่าง นี่คือสิ่งที่บรรทัด "Selection.CurrentRegion.Select" ทำ ตัวอย่างเช่น หากคุณต้องการคัดลอกข้อมูลทั้งหมดในสเปรดชีต แต่มีบรรทัดว่างที่ (สมมติว่า) แถว 200 แมโครจะคัดลอกลงไปที่แถว 200 เท่านั้น มันจะเพิกเฉยต่อข้อมูลที่อยู่ด้านล่างทั้งหมด!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มีใครรู้คำสั่งเพื่อหลีกเลี่ยงปัญหานี้หรือไม่? ปัญหาเกี่ยวกับ Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select สามารถแก้ไขได้หรือไม่? Selection.Rows.Count - 1) เป็นคำสั่งที่สร้างปัญหา ใครก็ได้??
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แทนที่จะเริ่มจากบนลงล่าง ให้เริ่มจากล่างแล้วขึ้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มีใครรู้รหัสในการแก้ปัญหาของแถวและคอลัมน์ที่ว่างเปล่า?. ฉันมีมันในข้อมูลของฉัน แต่ไม่มีวิธีแก้ปัญหาง่ายๆ ในการเริ่มต้นจากล่างขึ้นบน? ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สำหรับการลบแถวที่ว่างเปล่า: ตัวเลือกที่ 1: เลือกเซลล์ในคอลัมน์ A ที่ต้องการลบ ใช้ Ctrl - จากนั้นเลือกทั้งแถวในป๊อปอัป บันทึกสมุดงานและออก จากนั้นเปิดสมุดงาน ตัวเลือกที่ 2: เลือกแถวที่ต้องการลบ ใช้ Ctrl - บันทึกสมุดงานและออกจากสมุดงานที่เปิดอยู่ ให้ตัวเลือก 1 เพื่อให้คุณเห็นว่าเกิดอะไรขึ้น สำหรับการลบคอลัมน์ที่ว่างเปล่า: เลือกคอลัมน์ Ctrl -. บันทึกสมุดงานและออกจากสมุดงานที่เปิดอยู่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรามีวิธีแก้ปัญหาในการคัดลอกข้อมูลด้านล่างเซลล์ว่างหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ ! แถวที่ 2 ของฉันว่างเปล่าในทุกแผ่น & ฉันสับสน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โค้ด vba ใช้งานได้ดี แต่ฉันต้องการเวิร์กชีตที่รวมกันเพื่ออัปเดตเมื่อฉันเพิ่มแถวใหม่หรือข้อมูลใหม่ลงในเซลล์ในเวิร์กชีตที่ฉันรวมเข้าด้วยกัน มีวิธีทำเช่นนั้นหรือไม่? ขอขอบคุณสำหรับความช่วยเหลือของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสมาโครใช้งานได้ดีสำหรับแผ่นงานแรกที่รวมกัน แต่ฉันต้องการแผ่นงานที่รวมกันเพื่ออัปเดตเมื่อฉันเพิ่มข้อมูลลงในแผ่นงานที่มีอยู่ซึ่งฉันกำลังรวมเข้าด้วยกัน มีวิธีทำเช่นนั้นหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณเคยทราบวิธีอัปเดตในต้นแบบเมื่อคุณเพิ่มในแถวในเวิร์กชีตอื่นๆ หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำได้ดีมาก.. นี่ลดงานของฉันจาก 2 ชั่วโมงเหลือ 10 นาทีแล้ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยอดเยี่ยม ฉันใช้ทั้งมาโครตัวแรกและ Kutools ทั้งคู่ลดการรวบรวมข้อมูลและการรวบรวมของฉันอย่างมาก ขอบคุณสำหรับการแบ่งปัน.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันเพิ่งลบส่วนที่ระบุด้านล่างและตอนนี้ก็อัปเดตเท่านั้น หวังว่านี่จะช่วยได้... ชีต(1).เลือกเวิร์กชีต.เพิ่ม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสใช้งานได้ดี! ฉันต้องการมาโครเพื่อคัดลอกข้อมูลทั้งหมดบนชีต คือการตัดแถวแรกหลังจากแผ่นที่ 1 มีเพียงแผ่นเดียวที่มีแถวส่วนหัว อีกแผ่นหนึ่งเป็นเพียงข้อมูล เป็นไปได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีคำถามเกี่ยวกับ "ผสานเวิร์กชีตทั้งหมดเป็นเวิร์กชีตเดียวด้วยโค้ด VBA" โค้ดนี้ใช้งานได้ดีมาก แต่เมื่อว่างเปล่าเท่านั้น มันจึงเพิ่มส่วนหัว เป็นไปได้ที่จะแก้ไขโค้ดเพื่อไม่ให้รวมชีตเปล่า ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณคุณช่วยฉันชั่วโมงในการคัดลอกและวาง :D
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีสมุดงานสองเล่ม ข้อมูลเดียวกัน แต่อันที่สองมีข้อมูลเพิ่มเติม และข้อมูลบางส่วนได้รับการอัปเดตแล้ว inv# สถานะ 123 7/2 เปิด inv# สถานะ 123 7/2 เปิด 7/7 ปิด วิธีการรวมเป็นหนึ่งเดียว ลบหรือเน้นรายการที่ซ้ำกันและเพิ่ม inv ใหม่ใด ๆ # ไม่ได้อยู่ในอันแรก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดีถ้าคอลัมน์ A ของคุณไม่-=ว่างเปล่า บนแผ่นงานที่มีคอลัมน์ A ว่างเปล่า ดูเหมือนว่าจะมีการเขียนทับ ในคอลัมน์ dtaa ของฉัน E ไม่เว้นว่างในทุกแผ่นงาน ฉันจะแก้ไข Copy Destination ไปยังบัญชีสำหรับคอลัมน์ว่าง A ในบางแผ่นงานได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 ถึง 25 Sheets("Sheet1")).Select Range("A1")).Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1).Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection .End(xlToRight)).Select Selection.Cut Sheets("Sheet1")).Select ActiveSheet.Paste Next End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ช่วง ("A:A") เซลล์พิเศษ (xlCellTypeLastCell) เลือก ActiveCell.Offset (1, 0) เลือก 'ใช้รหัสนี้เพื่อเลือกเซลล์สุดท้ายในคอลัมน์ "A" [อ้าง] Sub CopySheet () ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 ถึง 25 Sheets("Sheet1")).Select Range("A1")).Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Select Sheets("Sheet" & CStr(i)).Select Range("A2")).Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).เลือก Selection .Cut Sheets("Sheet1") เลือก ActiveSheet.Paste Next End Subโดย clopez[/ quote]
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสมาโครทำงานได้ดีมาก... FAB JOB :-)
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL