วิธีแบ่งตารางขนาดใหญ่เป็นตารางขนาดเล็กหลาย ๆ ตารางใน Excel

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

ตารางหลัก		แยกตารางออกเป็นหลาย ๆ ตารางตามค่าคอลัมน์	แบ่งตารางออกเป็นหลาย ๆ ตารางตามจำนวนแถว

แบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามค่าคอลัมน์ด้วยรหัส VBA

แบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามจำนวนแถวที่ระบุด้วยรหัส VBA

แบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามค่าคอลัมน์หรือจำนวนแถวด้วยคุณสมบัติที่น่าทึ่ง

แบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามค่าคอลัมน์ด้วยรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: แบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามคอลัมน์หลัก:

Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

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

4. จากนั้นคลิก OKและกล่องโต้ตอบอื่นจะปรากฏขึ้นโปรดเลือกข้อมูลคอลัมน์ที่คุณต้องการแบ่งตารางตามดูภาพหน้าจอ:

5. คลิก OKตารางขนาดใหญ่นี้ถูกแบ่งออกเป็นหลายแผ่นงานตามค่าของคอลัมน์ซึ่งอยู่หลังแผ่นงานหลัก และแผ่นงานใหม่จะถูกตั้งชื่อด้วยค่าคอลัมน์ ดูภาพหน้าจอ:

แบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามจำนวนแถวที่ระบุด้วยรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: แบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามจำนวนแถว:

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 ปุ่มตารางหลักถูกแบ่งออกเป็นหลายแผ่นตามจำนวนแถวที่แสดงด้านล่างภาพหน้าจอ:

แบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามค่าคอลัมน์หรือจำนวนแถวด้วยคุณสมบัติที่น่าทึ่ง

รหัสข้างต้นอาจเป็นเรื่องยากสำหรับผู้ใช้ส่วนใหญ่ที่นี่ฉันจะแนะนำคุณสมบัติที่น่าทึ่ง -แยกข้อมูล of Kutools สำหรับ Excel. ด้วยยูทิลิตี้นี้คุณสามารถแบ่งตารางขนาดใหญ่ออกเป็นหลาย ๆ ตารางตามคอลัมน์หลักหรือจำนวนแถวได้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

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

2. ใน แยกข้อมูลออกเป็นหลายแผ่นงาน กล่องโต้ตอบระบุการตั้งค่าตามความต้องการของคุณ:

(1. ) เลือก คอลัมน์เฉพาะ or แถวคงที่ จาก แยกตาม ส่วนตามที่คุณต้องการ

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

3. จากนั้นคลิก Ok และตอนนี้ตารางขนาดใหญ่ได้ถูกแบ่งออกเป็นตารางเล็ก ๆ หลายตารางในสมุดงานใหม่ ดูภาพหน้าจอ:

แยกตารางออกเป็นหลาย ๆ ตารางตามค่าคอลัมน์	แบ่งตารางออกเป็นหลาย ๆ ตารางตามจำนวนแถว

คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!

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

---

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

• ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
• ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
• เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
• สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
• แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
• แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
• ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
• รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
• การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...

อ่านเพิ่มเติม ... คุณสมบัติเต็มรูปแบบ ทดลองใช้งานฟรี 30 วัน... ซื้อ... 

---

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

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

อ่านเพิ่มเติม ... คุณสมบัติเต็มรูปแบบ ทดลองใช้งานฟรี 30 วัน... ซื้อ...