วิธีการทำซ้ำแถวตามจำนวนครั้งที่ระบุโดยยึดตามคอลัมน์อื่นใน Excel
คุณเคยพยายามทำซ้ำแถวตามค่าคอลัมน์อื่นตามภาพด้านล่างนี้หรือไม่? ในบทความนี้ฉันจะแนะนำวิธีการแก้งานนี้ใน Excel
ทำซ้ำแถวตามค่าคอลัมน์อื่นด้วย VBA
ทำซ้ำแถวตามค่าคอลัมน์อื่นโดย Kutools for Excel
ทำซ้ำแถวตามเวลาที่กำหนดโดย Kutools for Excel
ทำซ้ำแถวตามค่าคอลัมน์อื่นด้วย VBA
ฉันมีรหัสที่สามารถทำซ้ำแถวได้อย่างรวดเร็วตามค่าคอลัมน์สุดท้าย
1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ดด้านล่างแล้ววางลงในไฟล์ โมดูล ต้นฉบับ
VBA: ทำซ้ำแถวตามค่าคอลัมน์อื่น
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3 กด F5 คีย์กล่องโต้ตอบจะปรากฏขึ้นเลือกรายการตัวเลขที่จะทำซ้ำแถวตาม
4. คลิกตกลงแถวจะถูกทำซ้ำตามค่าคอลัมน์ที่เลือก
ทำซ้ำแถวตามค่าคอลัมน์อื่นโดย Kutools for Excel
หากคุณไม่เก่งในการใช้ VBA คุณสามารถลอง Kutools สำหรับ Excel's ทำซ้ำแถว/คอลัมน์ตามค่าของเซลล์ คุณสมบัติซึ่งต้องการเพียงสองขั้นตอน
| Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
1 คลิก Kutools > สิ่งที่ใส่เข้าไป > ทำซ้ำแถว/คอลัมน์ตามค่าของเซลล์.
2. ในกล่องโต้ตอบ popping ให้เลือก คัดลอกและแทรกแถว ตัวเลือกใน ชนิดภาพเขียน จากนั้นเลือกช่วงที่คุณต้องการทำซ้ำ แทรกรังe textbox และเลือกคอลัมน์ที่กำหนดเวลาทำซ้ำเป็น ทำซ้ำครั้ง กล่องข้อความ. คลิก Ok.
จากนั้นแถวจะถูกทำซ้ำตามคอลัมน์ที่เลือก
ทำซ้ำแถวตามเวลาที่กำหนดโดย Kutools for Excel
หากคุณต้องการทำซ้ำแถวตามเวลาที่กำหนดโดยไม่ต้องแทรกแถวทีละแถวคุณสามารถลองใช้ไฟล์ แทรกแถวและคอลัมน์ว่าง และ เติมเซลล์ว่าง สาธารณูปโภคของ Kutools สำหรับ Excel เพื่อจัดการงานนี้อย่างรวดเร็ว
หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:(ดาวน์โหลด Kutools for Excel ฟรีทันที!)
1. เลือกช่วงข้อมูลที่คุณต้องการทำซ้ำแถวคลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกแถวและคอลัมน์ว่าง. จากนั้นใน แทรกแถวและคอลัมน์ว่าง โต้ตอบตรวจสอบ แถวว่าง จากนั้นพิมพ์ 1 เข้าไป ช่วงเวลา of กล่องข้อความแล้วพิมพ์ตัวเลขที่คุณต้องการทำซ้ำแถว แถว กล่องข้อความ.
2 คลิก Okแถวว่างถูกแทรกไว้ด้านล่างแต่ละแถว
3. เก็บช่วงที่เลือกไว้คลิก Kutools > สิ่งที่ใส่เข้าไป > เติมเซลล์ว่าง. ใน เติมเซลล์ว่าง โต้ตอบตรวจสอบ ขึ้นอยู่กับค่า และ ลง ตัวเลือก
4 คลิก Ok. ตอนนี้เซลล์ว่างเต็มไปด้วยค่าด้านบนแล้ว
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
