snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ที่เซลล์ F1 คีย์สูตรเพื่อ List อักขระที่ไม่ซ้ำ
=LOOKUP(CHAR(255),CHOOSE({1,2},"",INDEX(MID($D1,ROW(INDIRECT("1:"&LEN($D1))),1),SMALL(IF(FREQUENCY(MATCH(MID($D1,ROW(INDIRECT("1:"&LEN($D1))),1),MID($D1,ROW(INDIRECT("1:"&LEN($D1))),1),0),ROW(INDIRECT("1:"&LEN($D1)))),ROW(INDIRECT("1:"&LEN($D1)))),COLUMNS($G1:G1)))))
Ctrl+Shift+Enter > Copy ไปด้านขวาและลงด้านล่าง
ที่ E1 คีย์
=F1&G1&H1&I1&J1&K1
Enter > Copy ลงด้านล่าง กรณีที่มีอักขระในคอลัมน์ที่มากกว่าคอลัมน์ K ก็ให้ปรับสูตรเพื่อจะเชื่อมคอลัมน์เหล่านั้นเข้ามาด้วย
Note: Ctrl+Shift+Enter หมายถึงเมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl+Shift ค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้คีย์เข้าไปเองไม่ได้ ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง