ข้อความย่อยสาธารณะ ToColumns()
ตั้งค่า Arange = ช่วง ("A:A")
ตั้งค่า BRange = ช่วง ("B:B")
ตั้งค่า CRange = ช่วง ("C:C")
ตั้งค่า DRange = ช่วง ("D:D")
Dim arr() เป็นสตริง
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
กำหนดออก = Worksheets.Add
out.Name = "ออก"
แถวนอก = 2
สำหรับฉัน = 2 ถึง lr
    arr = แยก(ARange(i), ",")
    สำหรับ j = 0 ถึง UBound(arr)
        out.Cells(outRow, 1) = ตัดแต่ง (arr(j))
        out.Cells(outRow, 2) = BRange(i) เซลล์ออก
        out.Cells (ออกแถว 3) = CRange (i)
        out.Cells(outRow, 4) = DRange(i) ออก
        เอาต์โรว์ = เอาต์โรว์ + 1
    ถัดไปเจ
ต่อไปฉัน
ย่อยสิ้นสุด
ฉันไม่ได้ทำส่วนหัวหรือจัดการกับแผ่นงานอย่างถูกต้อง แต่คุณสามารถเห็นได้โดยพื้นฐานว่าเกิดอะไรขึ้น