วิธีทำซ้ำค่าเซลล์ x ครั้งใน Excel

ตัวอย่างเช่นคุณมีรายการค่าในคอลัมน์ A และคุณต้องการทำซ้ำค่าจำนวนครั้งที่ระบุตามจำนวนครั้งในคอลัมน์ B ตามที่แสดงภาพหน้าจอด้านซ้ายคุณจะบรรลุสิ่งนี้ใน Excel ได้อย่างไร
ทำซ้ำค่าของเซลล์ X ครั้งด้วยสูตรและคอลัมน์ตัวช่วย
หากต้องการทำซ้ำค่าของเซลล์ X ครั้งคุณสามารถแทรกคอลัมน์ตัวช่วยบางคอลัมน์แล้วใช้สูตรง่ายๆโปรดทำตามขั้นตอนต่อไปนี้:
1. แทรกคอลัมน์ทางด้านซ้ายของคอลัมน์ A และพิมพ์ 1 ในเซลล์ A2 ดูภาพหน้าจอ:
2. จากนั้นใส่สูตรนี้ = A2 + C2 ลงใน A3 แล้วลากที่จับเติมไปยังเซลล์ A6 ดูภาพหน้าจอ:
3. จากนั้นป้อน 1 ในเซลล์ D2 และเติมตัวเลขโดยลาก Auto Fill ไปที่ 12 ซึ่งเป็นจำนวนครั้งทั้งหมดในคอลัมน์ C ดูภาพหน้าจอ:
4. จากนั้นป้อนสูตรนี้ = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) ลงในเซลล์ E2 และคัดลอกคุณจะได้ผลลัพธ์ดังต่อไปนี้:
- หมายเหตุ : :
- 1. ในสูตรนี้ D2 ระบุเซลล์แรกที่คุณเติมด้วยลำดับตัวเลขและ A1: B6 หมายถึงช่วงของคอลัมน์ตัวช่วยแรกและค่าเซลล์เดิมที่คุณต้องทำซ้ำ
- 2. หลังจากได้รับค่าซ้ำแล้วคุณสามารถคัดลอกและวางเป็นค่าไปยังที่อื่นได้
คัดลอกและแทรกแถว X ครั้งตามจำนวนที่ระบุได้อย่างง่ายดาย
โดยปกติไม่มีวิธีการที่ดีในการคัดลอกและแทรกแถวหลาย ๆ ครั้งยกเว้นการคัดลอกและแทรกด้วยตนเอง แต่ด้วย Kutools สำหรับ Excel's ทำซ้ำแถว / คอลัมน์ตามค่าของเซลล์ คุณลักษณะนี้คุณสามารถแก้ปัญหานี้ได้อย่างง่ายดาย คลิกเพื่อดาวน์โหลด Kutools for Excel!
Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!
ทำซ้ำค่าของเซลล์ X ครั้งด้วยรหัส VBA
หากคุณคิดว่าวิธีแรกนั้นยากที่จะเข้าใจที่นี่ฉันสามารถแนะนำโค้ด VBA เพื่อแก้ปัญหาได้
1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: ทำซ้ำค่าเซลล์ X ครั้ง
Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
xValue = Rng.Range("A1").Value
xNum = Rng.Range("B1").Value
OutRng.Resize(xNum, 1).Value = xValue
Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงที่มีค่าและเวลาซ้ำดูภาพหน้าจอ: คัดลอกและแทรกค่าเซลล์ X ครั้งด้วยคุณสมบัติที่ยอดเยี่ยม
บางครั้งคุณอาจต้องคัดลอกและแทรกค่าของเซลล์ x ครั้งตามจำนวนที่ระบุ Kutools สำหรับ Excel's แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ สามารถช่วยคุณคัดลอกและแทรกแถวตามจำนวนที่คุณระบุได้อย่างรวดเร็ว
หลังจากติดตั้ง Kutools for Excelโปรดทำตามนี้:
1. คลิก Kutools > สิ่งที่ใส่เข้าไป > แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ดูภาพหน้าจอ:
2. ใน คัดลอกและแทรกแถวและคอลัมน์ ใหเลือก คัดลอกและแทรกแถว ตัวเลือกใน ประเภท จากนั้นเลือกช่วงข้อมูลที่คุณต้องการทำซ้ำจากนั้นระบุเวลาทำซ้ำเพื่อคัดลอกและแทรกแถวดูภาพหน้าจอ:
4. จากนั้นคลิก Ok or สมัครสมาชิก คุณจะได้รับผลลัพธ์ต่อไปนี้ตามที่คุณต้องการ:
![]() | ![]() | ![]() |
คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!