Snasui Excel Forum

เขียนโค้ดเพื่อเตรียมข้อมูลชีทแรกสำเร็จ แต่จะเริ่มเตรียมข้อมูลในชีทต่อไปไม่ได้
รบกวนช่วยดูโค้ดให้ด้วยครับ


With Range("P" & i).Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Completed,Pending"
.IgnoreBlank = True
.InCellDropdown = True ...

เปิดไฟล์ไม่ได้น่าจะเป็นเพราะระบบของบริษัทครับ :flw: :flw:

ขอวางเป็นข้อความในนี้ด้วยครับ อาจจะเปิดไฟล์ไม่ได้อีกครั้ง
(แยกคอลลัมน์ด้วย ",")

Item,Code,Status,Count"04",Count"00"
1,18S9IA0LS3TQ213,04,1,0
2,18S9IA0LS3TQ213,04,0,0
3,18S12Q06P1LFKM,04,1,0
4,18S6VM0IM1314VP7,04,1,0
5,18S6VI0IK1314VP9,04 ...

ต้องการนับจำนวน Code ที่ไม่ซ้ำกัน และ Status ที่ไม่ซ้ำกันครับ
เช่น
Code : 18S6VK0IL1314VP8

Status : 00
ในไฟล์ข้อมูล จะอยู่ Item ที่ 6 และ 7 เท่ากับมีข้อมุล 2 บรรทัด
ต้องการให้นับได้แค่ 1 ครับ

Status : 04
ในไฟล์ข้อมูล จะอยู่ Item ที่ 8 เท่ากับมีข้อมูล 1 บรรทัด
ต้องการให้นับได้แค่ 1 ครับ

ปัญหาคือส ...