เคล็ดลับ: ภาษาอื่น ๆ ได้รับการแปลโดย Google คุณสามารถเยี่ยมชม English รุ่นของลิงก์นี้
เข้าสู่ระบบ
x
or
x
x
สมัครสมาชิก
x

or

วิธีการแบ่งข้อมูลลงในแผ่นงานหลายแผ่นโดยแถวนับใน Excel?

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


doc-แยกข้อมูลโดย rows1


-2



doc-แยกข้อมูลโดย rows2
doc-แยกข้อมูลโดย rows3
doc-แยกข้อมูลโดย rows4
doc-แยกข้อมูลโดย rows5

แยกข้อมูลลงในแผ่นงานหลายชุดโดยนับจำนวนแถวด้วยรหัส VBA

แยกข้อมูลลงในแผ่นงานหลายชุดโดยนับแถวด้วย Kutools for Excel

เครื่องมือเพิ่มประสิทธิภาพที่แนะนำสำหรับ Excel / Office

แท็บ Office: นำการแก้ไขแท็บไปใช้ Excel และซอฟต์แวร์ Office อื่น ๆ เช่นเดียวกับ Chrome, Firefox และ Safariการทดลองใช้ฟรีไม่ จำกัด 30 วัน

Kutools สำหรับ Excel: คุณลักษณะที่มีประสิทธิภาพของ 300 ช่วยให้ Excel ใช้งานได้ง่ายและเพิ่มประสิทธิภาพการทำงานได้ทันทีการทดลองใช้ฟรีไม่ จำกัด 60 วัน


ลูกศรสีฟ้าด้านขวา แยกข้อมูลลงในแผ่นงานหลายชุดโดยนับจำนวนแถวด้วยรหัส VBA


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

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

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

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

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

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

4. คลิก OKและช่วงจะถูกแบ่งออกเป็นหลายแผ่นโดยนับแถว

หมายเหตุ: เวิร์กชีตแยกจะอยู่ที่ด้านหลังของเวิร์กชีตหลัก


ลูกศรสีฟ้าด้านขวา แยกข้อมูลลงในแผ่นงานหลายชุดโดยนับแถวด้วย Kutools for Excel

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

แต่ด้วยความที่ Kutools สำหรับ Excel's แยกข้อมูลคุณสามารถแทรกหัวกระดาษสำหรับข้อมูลเวิร์กชีทแต่ละชุดได้เท่านั้น แต่ยังสามารถระบุชื่อแผ่นงานแยกใหม่

Kutools สำหรับ Excel รวมเครื่องมือ Excel ที่มีประโยชน์มากมายกว่า 300 ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

ถ้าคุณได้ติดตั้ง Kutools for Excel แล้วโปรดทำดังนี้:

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

2. คลิก Enterprise > เครื่องมือแผ่นงาน > แยกข้อมูล (หรือ Enterprise > แยกข้อมูล ) ดูภาพหน้าจอ:

doc-แยกข้อมูลโดย rows6

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

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

doc-แยกข้อมูลโดย rows7

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

doc-แยกข้อมูลโดย rows8

คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะข้อมูลแยกส่วนนี้

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

วิธีการแบ่งข้อมูลลงในแผ่นงานหลายแผ่นตามคอลัมน์ใน Excel?



เครื่องมือเพิ่มประสิทธิภาพที่แนะนำ

แท็บ Office

gold star1 นำแท็บที่มีประโยชน์ไปยัง Excel และซอฟต์แวร์ Office อื่น ๆ เช่นเดียวกับ Chrome, Firefox และ Internet Explorer ใหม่

Kutools สำหรับ Excel

gold star1 น่าทึ่ง! เพิ่มประสิทธิภาพการทำงานของคุณในอีก 5 นาที ไม่จำเป็นต้องมีทักษะพิเศษประหยัดสองชั่วโมงทุกวัน!

gold star1 300 คุณสมบัติใหม่สำหรับ Excel, Make Excel ง่ายมากและมีประสิทธิภาพ:

  • ผสานเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล
  • รวมและรวมแผ่นงานหลายแผ่นและสมุดงาน
  • เปรียบเทียบช่วง, คัดลอกหลายช่วง, แปลงข้อความเป็นวันที่, หน่วยและการแปลงสกุลเงิน
  • นับตามสี, เพจย่อยย่อย, การเรียงลำดับขั้นสูงและตัวกรอง Super,
  • เพิ่มเติมเลือก / แทรก / ลบ / ข้อความ / รูปแบบ / ลิงก์ / ความคิดเห็น / เวิร์คบุ๊ค / แผ่นงานเครื่องมือ ...

ภาพหน้าจอของ Kutools for Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 10 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?