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

ขั้นตอนที่ 1: เลือกเซลล์ที่ระบุซึ่งคุณจะสร้างรายการของคุณ ในกรณีของเราเราเลือกเซลล์ E6

ขั้นตอนที่ 2: กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางรหัสต่อไปนี้ลงในหน้าต่างโมดูล

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

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

ขั้นตอนที่ 3: กด F5 หรือคลิกปุ่ม วิ่ง เพื่อเรียกใช้ VBA นี้

จากนั้นค่าทั้งหมดจากเซลล์ที่ระบุในแผ่นงานทั้งหมดจะถูกคัดลอกไปยังแผ่นงานใหม่ชื่อ KutoolsforExcel ดูภาพหน้าจอ：

VBA นี้จะเติมรายการลงในแผ่นงานใหม่และค่าในรายการเป็นแบบคงที่ซึ่งจะไม่เปลี่ยนแปลงตามค่าเดิม

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

วิธีนี้จะแนะนำ Kutools สำหรับ Excel's อ้างถึงเวิร์กชีตแบบไดนามิก ยูทิลิตี้ในการสร้างรายการแบบไดนามิกจากเซลล์เดียวกันในหลายแผ่นงาน

ขั้นตอนที่ 1: เลือกช่วงที่คุณจะเติมรายการไดนามิกแล้วคลิกไฟล์ Kutools > เพิ่มเติม > อ้างถึงเวิร์กชีตแบบไดนามิก.

ขั้นตอนที่ 2: ในการเปิดกล่องโต้ตอบการอ้างอิงกรอกข้อมูลแผ่นงาน

(1) คลิกไฟล์ กรอกคำสั่งซื้อ แล้วเลือกประเภทการเติมจากรายการแบบหล่นลง ในกรณีของเราเราเลือก เติมเซลล์ในแนวตั้งหลังเซลล์;

(2) ใน เติมสูตร ระบุที่อยู่เซลล์ที่คุณจะสร้างรายการแบบไดนามิกจากนั้นคลิกที่ไฟล์ ล็อค ปุ่ม เพื่อล็อคสูตร

(3) คลิกไฟล์ เติมช่วง ปุ่ม

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

เมื่อค่าดั้งเดิมเปลี่ยนไปค่าที่เกี่ยวข้องในรายการที่ระบุนี้จะเปลี่ยนโดยอัตโนมัติ

วิธีการเติมเซลล์เดียวกันโดยอัตโนมัติจากแผ่นงานอื่นไปยังแผ่นงานใน Excel