แบ่งข้อมูลออกเป็นหลายแผ่นงานตามจำนวนแถวใน Excel

การแบ่งช่วงข้อมูลขนาดใหญ่ออกเป็นแผ่นงาน Excel หลายแผ่นอย่างมีประสิทธิภาพตามจำนวนแถวที่เฉพาะเจาะจงสามารถปรับปรุงการจัดการข้อมูลได้อย่างมีประสิทธิภาพ ตัวอย่างเช่น การแบ่งชุดข้อมูลทุกๆ 5 แถวออกเป็นหลายๆ ชีตจะทำให้สามารถจัดการและจัดระเบียบได้มากขึ้น คู่มือนี้เสนอวิธีการปฏิบัติสองวิธีเพื่อให้งานนี้สำเร็จอย่างรวดเร็วและง่ายดาย

แยกข้อมูลออกเป็นหลายแผ่นตามแถวนับด้วยรหัส VBA

แบ่งข้อมูลออกเป็นหลายแผ่นตามแถวนับด้วย Kutools for Excel

แยกข้อมูลออกเป็นหลายแผ่นตามแถวนับด้วยรหัส VBA

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

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

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

VBA: แบ่งข้อมูลออกเป็นแผ่นงานตามจำนวนแถวใน Excel

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

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

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

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

6. จากนั้นคลิก OK ปุ่ม ข้อมูลถูกแบ่งออกเป็นหลายแผ่นงานตามจำนวนแถว โปรดดูภาพหน้าจอ:

แบ่งข้อมูลออกเป็นหลายแผ่นตามแถวนับด้วย Kutools for Excel

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

ถ้าคุณได้ติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. เลือกช่วงข้อมูลที่คุณต้องการแยก จากนั้นคลิก Kutools พลัส > แยกข้อมูลดูภาพหน้าจอ:

3. ใน แยกข้อมูลออกเป็นหลายแผ่นงาน กล่องโต้ตอบ:

• เลือก แถวคงที่ รถในตำนานจากเกม แยกตาม แล้วป้อนจำนวนแถวที่คุณต้องการแบ่งสำหรับแต่ละเวิร์กชีต
• หากข้อมูลของคุณมีส่วนหัวและคุณต้องการแทรกลงในแผ่นงานแยกใหม่แต่ละแผ่น โปรดตรวจสอบ ข้อมูลของฉันมีส่วนหัว ตัวเลือก. (ปลาย: คุณสามารถป้อนจำนวนแถวผู้เลี้ยงสัตว์ตามข้อมูลของคุณ)
• จากนั้นคุณสามารถระบุชื่อแผ่นงานแยกภายใต้ ชื่อแผ่นงานใหม่ เลือกกฎชื่อเวิร์กชีตจากไฟล์ กฎระเบียบ รายการแบบเลื่อนลงคุณสามารถเพิ่มไฟล์ อุปสรรค or วิภัตติ สำหรับชื่อแผ่นงานด้วย 

4. หลังจากระบุการตั้งค่าแล้วคลิก OKและข้อมูลที่เลือกจะถูกแบ่งออกเป็นหลายแผ่นงานของสมุดงานใหม่ทุกๆ 5 แถว และส่วนหัวจะถูกแทรกสำหรับแผ่นงานใหม่แต่ละแผ่น ดูภาพหน้าจอ:

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