ลองแบบนี้ครับ
1. สร้างชีทเปล่าเพื่อใส่รายการ Supplier code แบบไม่ซ้ำ (สมมติตั้งชื่อว่า Uniq)
1.1 คัดลอกเซลล์ A1:A403 ใน Sheet3 --> วางที่ชีท Uniq เซลล์ A1
1.2 เลือกเมนู Data --> Remove Duplicates --> เลือกติ๊กตรง My data has headers --> OK
1.3 เลือกเมนู Formula --> Name manager --> New... เพื่อสร้างรายการ supplier code ไว้ให้เลือก
1.4 ตั้งชื่ออะไรก็ได้ สมมติชื่อ
_SupCode --> ช่อง refer to คีย์
=INDEX(Uniq!$A$2:INDEX(Uniq!$A:$A,COUNTA(Uniq!$A:$A)),0)
OK
2. สร้างชีทใหม่ เพื่อแยกแต่ละ Supplier
2.1 ที่ชีทใหม่ เลือกเซลล์ B1 ไปที่เมนู Data --> Data validation --> Settings
ตรง Allow เลือก List และเอาเครื่องหมายถูกหน้า Ignore blank ออก
ตรง
Source ให้กดปุ่ม F3 แล้วเลือก
_SupCode --> OK
2.3 ที่ชีทใหม่ เซลล์ A2 คีย์
=IF(Sheet3!B1=0,"",Sheet3!B1)
Enter --> คัดลอกไปทางขวาถึง F2 (เผื่อไว้)
2.4 ที่ชีทใหม่ เซลล์ A3 คีย์
Code: Select all
=IFERROR(INDEX(Sheet3!B$2:B$403,SMALL(IF(Sheet3!$A$2:$A$403=$B$1,ROW(Sheet3!$A$2:$A$403)-ROW(Sheet3!$A$2)+1),ROWS(A$3:A3))),"")
กด Ctrl+SHift ค้างแล้วกด Enter --> คัดลอกไปถึง F3 และคัดลอกลงล่างครับ
การใช้งานก็เปลี่ยน Supplier code ในเซลล์ B1 โดยเลือกจาก drop down list หรือหากต้องการจะแยกชีทอีกก็คัดลอกชีทใหม่นี้ไปเรื่อยๆ แล้วก็เปลี่ยน supplier code ในเซลล์ B1 ตามต้องการครับ
You do not have the required permissions to view the files attached to this post.