วิธีแทรกจำนวนแถวเฉพาะในช่วงเวลาที่กำหนดใน Excel

ในแผ่นงาน Excel คุณสามารถแทรกแถวว่างระหว่างแถวที่มีอยู่ได้โดยใช้ฟังก์ชันแทรก แต่ถ้าคุณมีข้อมูลจำนวนมากและคุณต้องแทรกแถวว่างสองแถวหลังจากทุกๆแถวที่สามคุณจะทำงานนี้ให้เสร็จอย่างรวดเร็วและสะดวกได้อย่างไร?

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

แทรกจำนวนแถวว่างลงในช่วงข้อมูลตามช่วงเวลาที่กำหนดด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณในการแทรกจำนวนแถวที่ต้องการหลังจากทุกๆแถวที่ n ภายในข้อมูลที่มีอยู่ กรุณาดำเนินการดังนี้:

1. กด ALT + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: แทรกจำนวนแถวที่เจาะจงลงในข้อมูลตามช่วงเวลาที่กำหนด

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

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

4. คลิก OK ปุ่มกล่องข้อความอื่นจะปรากฏขึ้นโปรดป้อนจำนวนช่วงของแถวดูภาพหน้าจอ:

5. ไปที่การคลิก OK ในกล่องพร้อมต์ที่โผล่ออกมาต่อไปนี้โปรดป้อนจำนวนแถวว่างที่คุณต้องการแทรกดูภาพหน้าจอ:

6. จากนั้นคลิก OKและมีการแทรกแถวว่างลงในข้อมูลที่มีอยู่เป็นระยะ ๆ ดูภาพหน้าจอ:

แทรกจำนวนแถวว่างลงในช่วงข้อมูลตามค่าของเซลล์ด้วยรหัส VBA

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

1. กด ALT + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: แทรกจำนวนแถวว่างตามรายการตัวเลข:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. หลังจากวางรหัสนี้แล้วให้กด F5 คีย์เพื่อเรียกใช้รหัสนี้ในกล่องโต้ตอบที่โผล่ขึ้นมาให้เลือกรายการตัวเลขที่คุณต้องการแทรกแถวว่างตามดูภาพหน้าจอ:

4. จากนั้นคลิก OKและคุณจะได้ผลลัพธ์ที่ต้องการตามภาพหน้าจอต่อไปนี้ที่แสดง:

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

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

หลังจากการติดตั้ง Kutools for Excelโปรดดำเนินการดังนี้:

1. เลือกช่วงข้อมูลที่คุณต้องการแทรกแถวว่างเป็นช่วง ๆ

2. คลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกแถวและคอลัมน์ว่างดูภาพหน้าจอ:

3. ใน แทรกแถวและคอลัมน์ว่าง ให้เลือก แถวว่าง ตัวเลือกจาก ประเภทการแทรกจากนั้นระบุจำนวนช่วงเวลาและแถวว่างที่คุณต้องการใช้ตามภาพหน้าจอต่อไปนี้:

4. จากนั้นคลิก OK และมีการแทรกแถวว่างลงในช่วงที่เลือกในช่วงเวลาที่กำหนดดังภาพหน้าจอต่อไปนี้:

ดาวน์โหลดและทดลองใช้ฟรี Kutools for Excel ตอนนี้ !

คัดลอกและแทรกแถวหลาย ๆ ครั้งตามตัวเลขที่ระบุด้วยรหัส VBA

สมมติว่าคุณมีช่วงของ tada และตอนนี้คุณต้องการคัดลอกแต่ละแถวและวางหลาย ๆ ครั้งในแถวถัดไปตามรายการตัวเลขตามภาพหน้าจอด้านล่างที่แสดง จะแก้ปัญหานี้ในแผ่นงาน Excel ได้อย่างไร

เพื่อจัดการกับงานนี้ฉันจะแนะนำรหัสที่มีประโยชน์สำหรับคุณโปรดทำตามขั้นตอนต่อไปนี้:

1. กด ALT + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: คัดลอกและแทรกแถวหลาย ๆ ครั้งตามตัวเลขเฉพาะ:

Sub CopyRows()
'UpdatebyExtendoffice
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 list of numbers to copy the rows based on: ", "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. จากนั้นคลิก OK และจำนวนแถวที่ระบุได้ถูกคัดลอกและวางภายใต้แถวเดิมแต่ละแถวดูภาพหน้าจอ:

คัดลอกและแทรกแถวหลาย ๆ ครั้งตามจำนวนที่ระบุพร้อมคุณสมบัติที่น่าทึ่ง

ถ้าคุณมี Kutools for Excelเดียวกันกับที่ แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ คุณสามารถแทรกแถวหรือคอลัมน์ตามรายการตัวเลขได้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง Kutools for Excelโปรดดำเนินการดังนี้:

1. คลิก Kutools > สิ่งที่ใส่เข้าไป > แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ดูภาพหน้าจอ:

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

4. จากนั้นคลิก Ok or ใช้ คุณจะได้รับผลลัพธ์ต่อไปนี้ตามที่คุณต้องการ:

ดาวน์โหลดและทดลองใช้ฟรี Kutools for Excel ตอนนี้ !

บทความที่เกี่ยวข้องเพิ่มเติม:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

	คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
	การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
	รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
	ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
	คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
	ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี...

---

Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี...