Snasui Excel Forum

สวัสดีครับ
ผมอยาก จะเรียง Column ใหม่โดย การเอา Column G เป็นตัวตั้ง ครับ
แล้วดึงข้อมูลจาก Column E ขึ้นมาครับ

ตัวอย่าง ตามเอกสารแนบ ครับ

Copy cell แถว E
ไป paste ที่ G2 / paste special > transpose.

จะได้ผลลัพธ์

มีเงื่อนไข
โดย ItemID ต้อง ตรงกันครับ

ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ G2 คีย์
   =IFERROR(INDEX($A$2:$A$56,SMALL(IF(FREQUENCY(MATCH($A$2:$A$56,$A$2:$A$56,0),ROW($A$2:$A$56)-ROW($A$2)+1),ROW($A$2:$A$56)-ROW($A$2)+1),ROWS(G$2:G2))),"")
   Ctrl+Shift+Enter > Copy ลงด้านล่าง
2. ที่ H2 คีย์
   =IFERROR(INDEX($E$2:$E$56,SMALL(IF($A$2:$A$56=$G2,ROW($A$2:$A$56)-ROW($A$2)+1),COLUMNS($H2:H2))),"")
   Ctrl+Shift+Enter > Copy ไปด้านขวาและลงด้านล่าง

!

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

ขอบคุณครับ
ได้แล้วครับ

อาจารย์ ครับ
สูตรใช้ได้ดี ครับ แต่เวลาข้อมูลเยอะ ประมาณ 10000 Low ขึ้นไป ใช้เวลานานมากครับ
อาจารย์ พอแนะนำ การใช้ VBA ทดแทนยังไงได้บ้าง ครับ

งานนี้สามารถเขียนด้วย VBA ได้หลากหลายแบบครับ

หลักการก็ต้องหาค่าที่ไม่ซ้ำออกมาก่อน สามารถใช้ Remove Dupplicates ได้ จากนั้นค่อย Loop ค่าที่เกี่ยวข้องมาวางเรียงไปด้านขวาครับ

ครับอาจารย์
อาจารย์พอมีตัวอย่างไม่ ครับ
ผมไม่รู้เกี่ยวกับ VBA เลย ครับ

การ Remove Duplicate สามารถใช้การบันทึก Macro มาช่วยได้ ส่วนการ Loop ศึกษาได้จากฟอรัมนี้มีจำนวนมาก เช่น For Each...Next, Fo...Next, Do...Loop เป็นต้นครับ

Link นี้ก็เป็นการ Loop เบื้องต้นครับ https://snasui.com/wordpress/vba-excel-for-next/

ขอบคุณ อาจารย์ ครับ
ได้แล้วครับ ใช้ Access Run in Crosstab ครับ