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

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

1

กด "Alt-F11" เพื่อเปิดโปรแกรมแก้ไข Visual Basic ของ Excel

2

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

ย่อย mcrExtractData ()

3

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

Dim extractValue (1 ถึง 10) เป็น Long

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

Dim extractValue (3 ถึง 12) เป็น Long

4

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

Dim i เป็นจำนวนเต็ม

5

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

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

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

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

6

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

แผ่นงาน (i) เปิดใช้งาน

7

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

extractValue (i) = Range ("C1") ค่า

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

extractValue (i) = Range ("E10") ค่า

8

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

ต่อไปฉัน

9

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

End Sub

10

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