EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)กรณีแต่ละเซลล์มีหลายอักขระและต้องการคั่นค่าในแต่ละเซลล์ด้วยคอมม่า สามารถเขียน Mconcat ที่ E2 ได้อีกวิธีตามด้านล่างครับkmb wrote:ได้แล้วครับ ขอบคุณสำหรับคำชี้แนะครับ
ถ้าเป็นกรณีที่ในเซลล์มีตัวอักษรมากกว่า 1 ตัว จากสูตรด้านบนเปลี่ยนเป็นตามนี้เลยครับ
=IF(RIGHT(MCONCAT(A2:D2,","),1)=",",LEFT(MCONCAT(A2:D2,","),LEN(MCONCAT(A2:D2,","))-1),MCONCAT(A2:D2,","))
แต่ต้องดาวน์โหลดและติดตั้ง Morefunc ก่อนตามลิงค์นี้ครับ
viewtopic.php?f=3&t=9
ขอบคุณอีกครั้งสำหรับเทคนิคนี้ครับ จะนำไปประยุกต์ใช้ต่อไปครับsnasui wrote:กรณีแต่ละเซลล์มีหลายอักขระและต้องการคั่นค่าในแต่ละเซลล์ด้วยคอมม่า สามารถเขียน Mconcat ที่ E2 ได้อีกวิธีตามด้านล่างครับkmb wrote:ได้แล้วครับ ขอบคุณสำหรับคำชี้แนะครับ
ถ้าเป็นกรณีที่ในเซลล์มีตัวอักษรมากกว่า 1 ตัว จากสูตรด้านบนเปลี่ยนเป็นตามนี้เลยครับ
=IF(RIGHT(MCONCAT(A2:D2,","),1)=",",LEFT(MCONCAT(A2:D2,","),LEN(MCONCAT(A2:D2,","))-1),MCONCAT(A2:D2,","))
แต่ต้องดาวน์โหลดและติดตั้ง Morefunc ก่อนตามลิงค์นี้ครับ
viewtopic.php?f=3&t=9
=Left(Mconcat(A2:D2,","),Len(Mconcat(A2:D2,","))-(D2=""))
Enter > Copy ลงด้านล่าง