วิธีการดึงข้อมูลจากสเปรดชีตหลายรายการ

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

1

กด "Alt-F11" เพื่อเปิดตัวแก้ไข Visual Basic ของ Excel

2

พิมพ์รหัสต่อไปนี้เพื่อเปิดบล็อกมาโคร:

ย่อย mcrExtractData ()

3

เพิ่มบรรทัดต่อไปนี้เพื่อสร้างอาร์เรย์ของค่า:

ติ่มซำแยกมูลค่า (1 ถึง 10) ตราบใดที่

แทนที่ "1" และ "10" ด้วยแผ่นงานแรกและแผ่นสุดท้ายที่มีข้อมูลที่คุณต้องการแยก ตัวอย่างเช่นหากต้องการดึงข้อมูลจากแผ่นงาน 3 ถึง 12 ให้ใช้บรรทัด:

ติ่มสกัดมูลค่า (3 ถึง 12) ตราบใดที่

4

เพิ่มบรรทัดต่อไปนี้เพื่อประกาศตัวแปรที่ลูปของแมโครจะใช้:

ติ่มซำฉันเป็นจำนวนเต็ม

5

เพิ่มบรรทัดต่อไปนี้เพื่อเปิดลูป For-Next:

สำหรับ i = 1 ถึง 10

แทนที่ "1" และ "10" ด้วยแผ่นงานแรกและแผ่นสุดท้ายที่มีข้อมูลที่คุณต้องการแยก ตัวอย่างเช่นหากต้องการดึงข้อมูลจากแผ่นงาน 3 ถึง 12 ให้ใช้บรรทัด:

สำหรับ i = 3 ถึง 12

6

เพิ่มบรรทัดต่อไปนี้เพื่อเปิดใช้งานชีตแรก:

แผ่น (i) .Activate

7

เพิ่มบรรทัดต่อไปนี้เพื่อดึงข้อมูลจากชีตแรก:

extractedValue (i) = ช่วง ("C1") ค่า

แทนที่ "C1" ด้วยเซลล์ที่มีข้อมูลที่คุณต้องการแยก ตัวอย่างเช่นหากต้องการแยกค่าของเซลล์ E10 ให้ใช้บรรทัด:

extractedValue (i) = ช่วง ("E10") ค่า

8

เพิ่มบรรทัดต่อไปนี้เพื่อปิดการวนรอบ For-Next:

ต่อไปฉัน

9

เพิ่มบรรทัดต่อไปนี้เพื่อวางแมโคร:

ส่วนท้าย

10

กดปุ่ม "F5" เพื่อเรียกใช้แมโคร