Snasui Excel Forum

เรียน ท่าน อาจารย์ และ สมาชิกที่รู้ทุกท่าน ครับ ผมมีข้อมูลในแถวเดียว แต่อยากแปลงมาเป็นตาราง ใช้สูตรอย่างไลครับ ข้อมูลแบบนี้ครับ
ผลไม้ ราคา จำนวน แอปเปิล 0.69 40 กล้วย 0.34 38 มะนาว 0.55 15 ส้ม 0.25 25 แพร์ 0.59 40 อัลมอนด์ 2.80 10 มะม่วงหิมพานต์ 3.55 16 ถั่วลิสง 1.25 20 วอลนัท 1.75 12
แต่ความต้องการเป็นแบบนี้ครับ

ลองตามนี้ครับ
สมมุติ A1 ของ Sheet1 คือข้อความที่ต้องการนำมาเรียงเป็นตาราง

1. เข้าเมนู Formula > Name Manager > New
2. ตรง Name: คีย์คำว่า Source
3. ตรง Refers to: คีย์สูตร
   =EVALUATE("{"""&SUBSTITUTE(Sheet1!$A$1," ",""",""")&"""}")
   คลิก OK > Close
4. คลิก A2 แล้วคีย์สูตร
   =IFERROR(INDEX(Source,3*(ROWS(A$2:A2)-1)+COLUMNS($A2:A2)),"")
   Enter > Copy ไปทางขวาถึง C2 แล้ว Copy ลงด้านล่าง

!	ไฟล์นี้จะต้อง Save as เป็นนามสกุล .xlsm เนื่องจากใช้ Excel 4 Macro Fucntion ซึ่งถือว่าเป็นการใช้งาน Macro หาก Save เป็น .xlsx จะไม่สามารถใช้งานได้

snasui wrote: ลองตามนี้ครับ
สมมุติ A1 ของ Sheet1 คือข้อความที่ต้องการนำมาเรียงเป็นตาราง

1. เข้าเมนู Formula > Name Manager > New
2. ตรง Name: คีย์คำว่า Source
3. ตรง Refers to: คีย์สูตร
   =EVALUATE("{"""&SUBSTITUTE(Sheet1!$A$1," ",""",""")&"""}")
   คลิก OK > Close
4. คลิก A2 แล้วคีย์สูตร
   =IFERROR(INDEX(Source,3*(ROWS(A$2:A2)-1)+COLUMNS($A2:A2)),"")
   Enter > Copy ไปทางขวาถึง C2 แล้ว Copy ลงด้านล่าง

!	ไฟล์นี้จะต้อง Save as เป็นนามสกุล .xlsm เนื่องจากใช้ Excel 4 Macro Function ซึ่งถือว่าเป็นการใช้งาน Macro หาก Save เป็น .xlsx จะไม่สามารถใช้งานได้

สุดยอดจิงๆครับ ได้ตามต้องการเลียครับ