EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
โปรดทราบ 
แจกไฟล์ตัวอย่างสูตรแสดงการนำข้อมูลจากหลายคอลัมน์เฉพาะเซลล์ที่ไม่เป็นค่าว่างมาเรียงต่อเนื่องกันไปในคอลัมน์เดียวจากไฟล์แนบ ช่วงเซลล์ D2:G5 เป็นข้อมูลต้นทางประกอบด้วยเซลล์ที่มีค่าและเซลล์ว่าง ต้องการนำเฉพาะเซลล์ที่ไม่ว่างมาเรียงใหม่ในคอลัมน์ A โดยเริ่มจาก A2
ที่เซลล์ A2 คีย์สูตร
=IFERROR(INDEX($1:$1048576,SMALL(IF($D$2:$G$5<>"",ROW($D$2:$D$5)),ROWS(A$2:A2)),MOD(SMALL(IF($D$2:$G$5<>"",--(ROW($D$2:$D$5)&"."&COLUMN($D$5:$G$5))),ROWS(A$2:A2))*10,10)),"")
Ctrl+Shift+Enter > Copy ลงด้านล่าง หรือ
=IFERROR(INDIRECT("R"&SUBSTITUTE(SMALL(IF($D$2:$G$5<>"",--(ROW($D$2:$D$5)&"."&COLUMN($D$2:$G$2))),ROWS(A$2:A2)),".","C"),0),"")
Ctrl+Shift+Enter > Copy ลงด้านล่าง หรือ
=IFERROR(INDEX($1:$1048576,AGGREGATE(15,6,ROW($D$2:$D$5)/($D$2:$G$5<>""),ROWS(A$2:A2)),MOD(AGGREGATE(15,6,(ROW($D$2:$D$5)&"."&COLUMN($D$5:$G$5))/($D$2:$G$5<>""),ROWS(A$2:A2))*10,10)),"")
Enter > Copy ลงด้านล่าง
