วิธีอ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่นใน Excel

สมมติว่าคุณมีสมุดงานที่มีแผ่นงานหลายแผ่นและตอนนี้คุณต้องการแยกข้อมูลภายในเซลล์เดียวกันจากหลาย ๆ แผ่นเป็นแผ่นงานหลัก ตัวอย่างเช่นดึงเซลล์ B8 จาก Sheet1, Sheet2, Sheet3, Sheet4 …ลงในแผ่นงานหลักตามภาพหน้าจอต่อไปนี้ คุณจะแก้งานนี้อย่างรวดเร็วและง่ายดายใน Excel ได้อย่างไร

อ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่นเป็นแผ่นงานหลักพร้อมสูตร

อ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่นเป็นแผ่นงานหลักด้วยรหัส VBA

อ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่นเป็นแผ่นงานหลักพร้อมคุณสมบัติที่น่าทึ่ง

อ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่นเป็นแผ่นงานหลักพร้อมสูตร

ถ้าชื่อแผ่นงานของคุณเป็นชื่อแผ่นงานเริ่มต้นเช่น Sheet1, Sheet2, Sheet3 ... คุณสามารถใช้สูตรเพื่อจัดการกับงานนี้ได้อย่างรวดเร็วใน Excel

1. ขั้นแรกคุณควรสร้างรายการหมายเลขผู้ช่วยเหลือโปรดป้อน 1, 2, 3, 4 ... หมายเลขลำดับซึ่งระบุแผ่นงานที่คุณต้องการอ้างอิงดูภาพหน้าจอ:

2. จากนั้นป้อนสูตรด้านล่างลงในเซลล์ที่คุณต้องการดึงข้อมูลจากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้และมีการแยกค่าเซลล์เดียวกันทั้งหมดจากแผ่นงานหลายแผ่นดูภาพหน้าจอ:

หมายเหตุ: ในสูตรข้างต้น E2 คือหมายเลขผู้ช่วยเหลือที่คุณป้อนในขั้นตอนที่ 1 และ B8 คือการอ้างอิงเซลล์ที่คุณต้องการแยก สูตรนี้ใช้ได้ดีก็ต่อเมื่อชื่อแผ่นงานคือ Sheet1, Sheet2, Sheet3 ...

อ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่นเป็นแผ่นงานหลักด้วยรหัส VBA

หากมีแผ่นงานหลายสิบแผ่นที่ชื่อแผ่นงานเป็นเนื้อหาต่างๆแทนที่จะเป็น Sheet1, sheet2 ในกรณีนี้รหัส VBA ต่อไปนี้สามารถช่วยคุณเติมข้อมูลการอ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่นลงในแผ่นงานเดียวพร้อมกันได้

1. ในแผ่นงานหลักให้คลิกเซลล์ B8 ซึ่งเป็นเซลล์ที่คุณต้องการแยกออกจากแผ่นงานอื่น

2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: อ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่น

Sub AutoFillSheetNames()
'Update by Extendoffice
Dim ActRng As Range
Dim ActWsName As String
Dim ActAddress As String
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set ActRng = Application.ActiveCell
ActWsName = Application.ActiveSheet.Name
ActAddress = ActRng.Address(False, False)
Application.ScreenUpdating = False
xIndex = 0
For Each Ws In Application.Worksheets
If Ws.Name <> ActWsName Then
ActRng.Offset(xIndex, 0).Value = "='" & Ws.Name & "'!" & ActAddress
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
End Sub

4. จากนั้นกด F5 คีย์เพื่อรันโค้ดนี้และค่าทั้งหมดของเซลล์ B8 จากเวิร์กชีตอื่นถูกดึงเข้าไปในมาสเตอร์เวิร์กชีต ดูภาพหน้าจอ:

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

อ้างอิงเซลล์เดียวกันจากแผ่นงานหลายแผ่นเป็นแผ่นงานหลักพร้อมคุณสมบัติที่น่าทึ่ง

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

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

1. คลิกเซลล์ B8 ภายในแผ่นงานหลักที่คุณต้องการดึงข้อมูลจากแผ่นงานอื่น

2. จากนั้นคลิก Kutools > เพิ่มเติม > อ้างถึงเวิร์กชีตแบบไดนามิกดูภาพหน้าจอ:

3. ใน กรอกข้อมูลอ้างอิงในแผ่นงาน ให้เลือก เติมเซลล์ในแนวตั้งหลังเซลล์ จาก กรอกคำสั่งซื้อแล้วคลิกล็อคเล็ก ๆ ข้างกล่องข้อความสูตรและล็อคสีเทาจะกลายเป็นล็อคสีเหลืองหมายความว่าการอ้างอิงสูตรและเซลล์ถูกล็อคแล้วคุณสามารถคลิกเซลล์ใดก็ได้เพื่อแยกการอ้างอิงเซลล์ B8 ออกจากแผ่นงานอื่นใน ตัวอย่างนี้ฉันจะคลิกเซลล์ B2 จากนั้นตรวจสอบแผ่นงานที่คุณต้องการแยกการอ้างอิงเซลล์ ดูภาพหน้าจอ:

หมายเหตุ: ถ้าคุณไม่ล็อคตัวล็อคเล็ก ๆ นี้การอ้างอิงเซลล์ที่คุณคลิกจะเปลี่ยนไปตามเซลล์ที่เลือก

4. จากนั้นคลิก เติมช่วง และค่าของเซลล์ของเซลล์ B8 จากแผ่นงานอื่นได้รับการแสดงรายการในแนวตั้งในแผ่นงานหลักแล้วปิดกล่องโต้ตอบนี้ ดูภาพหน้าจอ:

คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!

บทความเพิ่มเติม: