จัดเรียงข้อมูล ใหม่ตามหัวข้อที่กำหนด

[nararat]

จัดเรียงข้อมูล ใหม่ตามหัวข้อที่กำหนด
คือผมข้อใน excel ในแต่ละแถวไม่ตรงกัน ใช้ vlookup ไม่ได้ ขอคำแนะนำหน่อยนะครับ
ตัวอย่าง
Job. สถานะ. Inline. เย็บ. แพ็ค.
H17/0001-01. เสื้อ. 8. 8. 7
H17/0001-01. กางเกง. 8. 2. 1
Job. สถานะ. พิมพ์ ปัก. Inline. เย็บ. แพ็ค
H17/0002-01. เสื้อ. 23. 23. 20. 15. 15
H17/0002-01. กางเกง. 23. 20. 10. 10. 10

โดยจัดเรียงข้อมูลให้ตามนี้
Job. สถานะ. พิมพ์. ปัก. Inline. เย็บ. แพ็ค
H17/0001-01. เสื้อ. 8. 8. 7
H17/0001-01. กางเกง. 8. 2. 1
H17/0002-01. เสื้อ. 23. 23. 20. 15. 15
H17/0002-01. กางเกง. 23. 20. 10. 10. 10

รบกวนอาจารย์ผู้รู้ ช่วยแนะนำหน่อยนะครับ

[parakorn]

แนบไฟล์ตัวอย่างมาด้วยครับ เพื่อความรวดเร็ว เนื่องจากผู้ตอบหลายท่านติดภารกิจ
จะได้สามารถเข้าไปใช้ไฟล์ตัวอย่าง และแก้ปัญหาให้ได้ครับ

[nararat]

ช่วยแนะนำหน่อยนะครับ

จัดเรียงข้อมูล.xlsx

ขอบคุณครับ

[parakorn]

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

ที่ชีต Data

1. ที่ AC2 คีย์ =IF(A2="JOB",COUNTA(E2:AB2),"")Enter > Copy ลงด้านล่าง
2. ที่ AD2 คีย์ =IF(N(AC2),SUM(AC$2:AC2)-AC2+1,"")Enter > Copy ลงด้านล่าง
3. ที่ AE2 คีย์ =IF(ROWS(AE$2:AE2)>SUM(AC:AC),"",INDEX(B:B,MATCH(ROWS(AE$2:AE2),AD:AD)+1))Enter > Copy ลงด้านล่าง
4. ที่ AF2 คีย์ =IF(AE2="","",INDEX(INDEX($E$2:$AB$69,MATCH(ROWS(AF$2:AF2),$AD$2:$AD$1000),0),COUNTIF(AE$2:AE2,AE2)))Enter > Copy ลงด้านล่าง

ที่ชีต NewData

1. ที่ D1 คีย์ =IFERROR(INDEX(Data!$AF$2:$AF$309,SMALL(IF(FREQUENCY(IF(Data!$AF$2:$AF$309<>"",MATCH(Data!$AF$2:$AF$309,Data!$AF$2:$AF$309,0)),ROW(Data!$AF$2:$AF$309)-ROW(Data!$AF$2)+1),ROW(Data!$AF$2:$AF$309)-ROW(Data!$AF$2)+1),COLUMNS($D1:D1))),"")Ctrl+Shift+Enter > Copy ไปด้านขวาจนผลลัพธ์เป็นเซลล์ว่าง
2. ที่ A2 คีย์ =IFERROR(INDEX(Data!B$3:B$69,SMALL(IF(Data!$B$3:$B$69<>"JOBNO.",ROW(Data!$B$3:$B$69)-ROW(Data!$B$3)+1),ROWS(A$2:A2))),"")Ctrl+Shift+Enter > Copy ไปเซลล์ B2 แล้ว Copy ลงด้านล่าง
3. ที่ C2 คีย์ =IF(B2<>"",INDEX(Data!$D$3:$D$69+0,MATCH(1,IF(Data!$B$3:$B$69=A2,IF(Data!$C$3:$C$69=B2,1)),0)),"")Ctrl+Shift+Enter > Copy ไปด้านขวาและลงด้านล่าง

Credit จากคุณ คนควน ครับผม

[nararat]

ขอบคุณครับ

[nararat]

โทษนะครับ ทำไมข้อมูลตัวเลขไม่มาครับผม

[nararat]

ข้อมูลที่ผมได้ ตัวเลขไม่มาด้วยครับ

[nararat]

จากข้อมูลที่ดึงมาครับ
ตัวเลขหลาย

nefd.jpg

[parakorn]

จากข้อมูลที่ดึงมาครับ
ตัวเลขหลาย
nefd.jpg

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

ที่ชีต Data

1. ที่ AC2 คีย์ =IF(A2="JOB",COUNTA(E2:AB2),"")Enter > Copy ลงด้านล่าง
2. ที่ AD2 คีย์ =IF(N(AC2),SUM(AC$2:AC2)-AC2+1,"")Enter > Copy ลงด้านล่าง
3. ที่ AE2 คีย์ =IF(ROWS(AE$2:AE2)>SUM(AC:AC),"",INDEX(B:B,MATCH(ROWS(AE$2:AE2),AD:AD)+1))Enter > Copy ลงด้านล่าง
4. ที่ AF2 คีย์ =IF(AE2="","",INDEX(INDEX($E$2:$AB$69,MATCH(ROWS(AF$2:AF2),$AD$2:$AD$1000),0),COUNTIF(AE$2:AE2,AE2)))Enter > Copy ลงด้านล่าง

ที่ชีต NewData

1. ที่ D1 คีย์ =IFERROR(INDEX(Data!$AF$2:$AF$309,SMALL(IF(FREQUENCY(IF(Data!$AF$2:$AF$309<>"",MATCH(Data!$AF$2:$AF$309,Data!$AF$2:$AF$309,0)),ROW(Data!$AF$2:$AF$309)-ROW(Data!$AF$2)+1),ROW(Data!$AF$2:$AF$309)-ROW(Data!$AF$2)+1),COLUMNS($D1:D1))),"")Ctrl+Shift+Enter > Copy ไปด้านขวาจนผลลัพธ์เป็นเซลล์ว่าง
2. ที่ A2 คีย์ =IFERROR(INDEX(Data!B$3:B$69,SMALL(IF(Data!$B$3:$B$69<>"JOBNO.",ROW(Data!$B$3:$B$69)-ROW(Data!$B$3)+1),ROWS(A$2:A2))),"")Ctrl+Shift+Enter > Copy ไปเซลล์ B2 แล้ว Copy ลงด้านล่าง
3. ที่ C2 คีย์ =IF(B2<>"",INDEX(Data!$D$3:$D$69+0,MATCH(1,IF(Data!$B$3:$B$69=A2,IF(Data!$C$3:$C$69=B2,1)),0)),"")Ctrl+Shift+Enter > Copy ไปด้านขวาและลงด้านล่าง

Credit จากคุณ คนควน ครับผม

สูตรไหนที่แจ้งให้กด CTRL+SHIFT+ENTER ได้กดตามนั้นหรือไม่ครับ
ลองแนบตัวอย่างไฟล์ที่มีปัญหามาดูครับ

[nararat]

ทำครับ แบบจัดกลุ่ม

จัดเรียงข้อมูล.xlsx

แต่ไม่ได้ไม่รู้เป็นไรครับ ขอบคุณครับ

[snasui]

ที่ชีต "จัดเรียงข้อมูลใหม่" เซลล์ D2 ปรับสูตรเป็นด้านล่างครับ

=IF($B2<>"",SUMIF(INDEX(Data!$E$2:$AD$69,MATCH($A2,Data!$B$2:$B$69,0)-1,0),D$1,INDEX(Data!$E$3:$AD$69,MATCH(1,IF(Data!$B$3:$B$69=$A2,IF(Data!$C$3:$C$69=$B2,1)),0),0)),"")

Ctrl+Shift+Enter > Copy ไปด้านขวาและลงด้านล่าง

[nararat]

ขอบคุณครับอาจาร์ย

ได้แล้วครัับผม

ถ้าอาจาร์ยว่างๆ รบกวนอีกนิดหนึ่งครับ
รบกวน ขยายกระบวนการทำงานของหมวดนี้ให้หน่อยนะครับ
ขอบคุณครับผม

[snasui]

สิ่งที่ต้องทำคือหาค่าไม่ซ้ำของหัวคอลัมน์ออกมาให้ได้ก่อน ซึ่งการจะทำเช่นนั้นต้องเรียงหัวคอลัมน์ออกมาทั้งหมดแล้วตัดเอาค่าที่ไม่ซ้ำ วิธีการเรียงหัวคอลัมน์อยู่ในชีต Data คอลัมน์ AD:AF โดยผลลัพธ์สุดท้ายคือคอลัมน์ AF

ส่วนในชีต จัดเรียงข้อมูลใหม่ เป็นการนำข้อมูลมาแสดง คอลัมน์ A:B เป็นการดึงข้อมูลมาตามเงื่อนไขโดยไม่เอาหัวคอลัมน์มาด้วย

คอลัมน์ C ยกตัวอย่างเซลล์ C2 เป็นการรวมข้อมูลในคอลัมน์ D ของชีต Data โดยมีเงื่อนไข 2 เงื่อนไขคือ

1. คอลัมน์ B ของชีต Data จะต้องมีค่าเท่ากับค่าในคอลัมน์ A2 ของชีต จัดเรียงข้อมูลใหม่
2. คอลัมน์ C ของชีต Data จะต้องมีค่าเท่ากับค่าในคอลัมน์ B2 ของชีต จัดเรียงข้อมูลใหม่

เซลล์ D1:AX1 เป็นการนำหัวคอลัมน์ทีเรียงไว้ในชีต Data มาแสดงโดยไม่รวมค่าที่ซ้ำ ส่วนที่เซลล์ D2:AX46 เป็นการรวมข้อมูลตามเงื่อนไข ซึ่งจะพิจารณาหัวคอลัมน์ของ JobNo. ตามคอลัมน์ A ในชีต Data ว่าตรงกับค่าใดใน D1:AX1 ก็ให้นำค่าที่ตรงกันนี้มารวมกัน เช่นนี้ครับ

ควรพิจาณาจัดการข้อมูลในชีต Data เสียใหม่ให้เป็น Database หัวคอลัมน์ที่ไม่เหมือนกันจะไม่นำมาเรียงต่อเนื่องกันไปในลักษณะนี้ หากมีข้อมูลปริมาณมากจะทำให้สูตรทำงานช้า อาจจะต้องใช้ VBA เข้ามาจัดการครับ

[nararat]

ขอบคุณครับ
ตอนนี้ผมจะติดปัญหาเหมือนอาจารย์บอกแล้ว
ถ้าข้อมูลเยอะๆ มันจะช้ามาก เพราะประมวลผลช้า
แต่ตอนนี้ผมกำลังทำ Macro อยู่
แต่เดี๋ยวผมจะ ตั้งหัวข้อถามอาจารย์ใหม่โดยลิงค์เข้ามาบทความนี้ โดยใช้ VBA
ขอบคุณครับผม