Snasui Excel Forum

อาจารย์ครับผมไม่มีความรู้ในการเขียนคำสั่งแต่ผมต้องการทำการแยกข้อมูลตัวเลขที่ซ้ำกันและไม่ซ้ำกับดั่งไฟล์แนบครับ

Wreuangsri wrote:อาจารย์ครับผมไม่มีความรู้ในการเขียนคำสั่งแต่ผมต้องการทำการแยกข้อมูลตัวเลขที่ซ้ำกันและไม่ซ้ำกับดั่งไฟล์แนบครับ

น่าจะต้องใช้ vba ครับ ลองเขียนมาเองก่อนครับ

ผมเขียนไม่เป็นครับอาจารย์

ลองตามนี้ครับ

1. เซลล์ E2 คีย์สูตรเพื่อเชื่อมกลุ่มที่ 1 และ 2
   =A2&B2
   Enter > Copy ลงด้านล่าง
2. เซลล์ F2 คีย์สูตรเพื่อกระจายเลขซ้ำ

   Code: Select all

   =IFERROR(INDEX(MID($E2,ROW(INDIRECT("1:"&LEN($E2))),1),SMALL(IF(FREQUENCY(MATCH(MID($E2,ROW(INDIRECT("1:"&LEN($E2))),1),MID($E2,ROW(INDIRECT("1:"&LEN($E2))),1),0),ROW(INDIRECT("1:"&LEN($E2))))>1,ROW(INDIRECT("1:"&LEN($E2)))),COLUMNS($F2:F2))),"")

   Ctrl+Shift+Enter > Copy ไปถึง K2 > Copy ลงด้านล่าง
3. เซลล์ L2 คีย์สูตรเพื่อกระจายเลขไม่ซ้ำ

   Code: Select all

   =IFERROR(INDEX(MID($E2,ROW(INDIRECT("1:"&LEN($E2))),1),SMALL(IF(FREQUENCY(MATCH(MID($E2,ROW(INDIRECT("1:"&LEN($E2))),1),MID($E2,ROW(INDIRECT("1:"&LEN($E2))),1),0),ROW(INDIRECT("1:"&LEN($E2))))=1,ROW(INDIRECT("1:"&LEN($E2)))),COLUMNS($L2:L2))),"")

   Ctrl+Shift+Enter > Copy ไปถึง Q2 > Copy ลงด้านล่าง
4. เซลล์ C2 คีย์สูตรเพื่อเชื่อมเลขซ้ำ
   =TRIM(CONCATENATE(F2,G2,H2,I2,J2,K2))
   Enter > Copy ลงด้านล่าง
5. เซลล์ D2 คีย์สูตรเพื่อเชื่อมเลขไม่ซ้ำ
   =TRIM(CONCATENATE(L2,M2,N2,O2,P2,Q2))
   Enter > Copy ลงด้านล่าง

!

Note: Ctrl+Shift+Enter หมายถึง กรณีคีย์สูตรเอง เมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl+Shift ค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array กรณี Copy สูตรไปวางให้กดแป้น F2 เพื่อทำการ Edit Cell นั้นก่อน จากนั้นกดแป้น Ctrl+Shift ค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้คีย์เข้าไปเองไม่ได้ ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง การแก้ไขเปลี่ยนแปลงสูตร Array จะต้องกดแป้นให้รับสูตรด้วย Ctrl+Shift+Enter ทุกครั้ง

สำเร็จแล้วครับและขอขอบคุณอาจารย์ Snasui ; bank9597 ทั้งสองท่านมากๆครับ