วิธีแบ่งค่าเซลล์ในแนวตั้งใน Excel

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

แยกค่าของเซลล์ออกเป็นแถวในแนวตั้งโดยคั่นด้วยรหัส VBA

แยกค่าของเซลล์ออกเป็นแถวตามแนวตั้งโดยคั่นด้วย Kutools for Excel

แยกค่าของเซลล์ออกเป็นแถวในแนวตั้งโดยคั่นด้วยรหัส VBA

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

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

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

รหัส VBA: แบ่งค่าของเซลล์ออกเป็นแถวตามแนวตั้งโดยตัวคั่นเฉพาะ

Sub splitvertically()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

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

4. จากนั้นคลิก OK ปุ่มอื่นจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่จะใส่ผลลัพธ์ดูภาพหน้าจอ:

5. คลิก OK และค่าของเซลล์ถูกแบ่งออกเป็นรายการโดยตัวคั่นดูภาพหน้าจอ:

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนอัฒภาคได้ ; ไปยังตัวคั่นอื่น ๆ ที่คุณต้องการ

แยกค่าของเซลล์ออกเป็นแถวตามแนวตั้งโดยคั่นด้วย Kutools for Excel

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

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

1. เลือกเซลล์ที่คุณต้องการแบ่งออกเป็นแถวตามตัวคั่นที่ระบุ

2. จากนั้นคลิก Kutools > ผสานและแยก > แยกเซลล์ดูภาพหน้าจอ:

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

4. จากนั้นคลิก Ok ในกล่องที่โผล่ออกมาให้เลือกเซลล์เพื่อส่งออกผลลัพธ์ดูภาพหน้าจอ:

5. และคลิก OK ปุ่มค่าของเซลล์ถูกแบ่งออกเป็นแถวตามตัวคั่นเฉพาะดังภาพต่อไปนี้:

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

Demo: แบ่งค่าของเซลล์ออกเป็นแถวในแนวตั้งโดยคั่นด้วย Kutools for Excel