แบ่งข้อมูลออกเป็นหลายแผ่นงานตามจำนวนแถวใน 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 แถว และส่วนหัวจะถูกแทรกสำหรับแผ่นงานใหม่แต่ละแผ่น ดูภาพหน้าจอ:
บทความที่เกี่ยวข้อง:
- แยกข้อมูลออกเป็นหลายแผ่นตามคอลัมน์
- สมมติว่าคุณมีแผ่นงานที่มีข้อมูลจำนวนมาก และตอนนี้คุณต้องแบ่งข้อมูลออกเป็นหลายแผ่นงานตามคอลัมน์ชื่อ (ดูภาพหน้าจอต่อไปนี้) และชื่อจะถูกป้อนแบบสุ่ม บางทีคุณอาจจัดเรียงพวกมันก่อน จากนั้นจึงคัดลอกและวางทีละรายการลงในเวิร์กชีตใหม่อื่นๆ แต่คุณจะต้องใช้ความอดทนในการคัดลอกและวางซ้ำๆ วันนี้ฉันจะพูดถึงเคล็ดลับง่ายๆ ในการแก้ปัญหานี้
- รวมแถวที่ซ้ำกันและรวมค่าใน Excel
- ใน Excel เป็นสถานการณ์ทั่วไปที่จะพบชุดข้อมูลที่มีรายการที่ซ้ำกัน บ่อยครั้งที่คุณอาจพบว่าตัวเองมีข้อมูลหลากหลายที่ความท้าทายหลักคือการรวมแถวที่ซ้ำกันเหล่านี้อย่างมีประสิทธิภาพ ขณะเดียวกันก็รวมค่าในคอลัมน์ที่เกี่ยวข้องไปพร้อมๆ กันดังภาพหน้าจอต่อไปนี้ ในบริบทนี้ เราจะเจาะลึกวิธีการปฏิบัติหลายวิธีที่สามารถช่วยคุณรวบรวมข้อมูลที่ซ้ำกันและรวมค่าที่เกี่ยวข้องเข้าด้วยกัน ปรับปรุงทั้งความชัดเจนและประโยชน์ของสมุดงาน Excel ของคุณ
- รวมสองตารางขึ้นไปเป็นตารางเดียวโดยยึดตามคอลัมน์หลัก
- สมมติว่าคุณมีสามตารางในสมุดงานตอนนี้คุณต้องการรวมตารางเหล่านี้เป็นตารางเดียวโดยยึดตามคอลัมน์หลักที่เกี่ยวข้องเพื่อให้ได้ผลลัพธ์ตามภาพด้านล่างที่แสดง นี่อาจเป็นงานที่ยุ่งยากสำหรับพวกเราส่วนใหญ่ แต่โปรดอย่ากังวลบทความนี้ฉันจะแนะนำวิธีการบางอย่างในการแก้ปัญหานี้
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
