Snasui Excel Forum

Sub Macro2()
Dim AB As String

Range("E2").Select
AB = "=IF(ROWS(E$2:E2)>$I$2,"",INDEX(OFFSET(sheet2!$A$1,,,COUNTA(sheet2!$A:$A),),SMALL(IF(MATCH(OFFSET(sheet2!$A$1,,,COUNTA(sheet2!$A:$A),),OFFSET(sheet2!$A$1,,,COUNTA(sheet2!$A:$A),),0)=ROW(OFFSET(sheet2!$A$1,,,COUNTA(sheet2!$A:$A),))-ROW(sheet2!$A$1)+1,ROW(OFFSET(sheet2!$A$1,,,COUNTA(sheet2!$A:$A),))-ROW(sheet2!$A$1)+1),ROWS(E$2:E2))))"
Selection.AutoFill Destination:=Range("E2:E497"), Type:=xlFillDefault
Range("E2:E497").Select

End Sub

พอคลิก Run แล้วไม่ขึ้นข้อมูลอะไรเลยค่ะ

แนบไฟล์ตัวอย่างแนบโค้ดมาด้วย เพื่อนๆในบอร์ดจะได้ช่วยกันดูได้ครับ

Macro2 ค่ะ

จุดประสงค์คือ อยากให้ Code ใน sheet2 คอลัมภ์ A หาค่าซ้ำไม่ซ้ำกัน เป็น Code VBA ค่ะ แต่ลองบันทึก Macro แล้ว ใส่สูตร รันแล้วไม่ขึ้นอะไรเลยค่ะ อยากให้ผลลัพธ์ขึ้นใน sheet3 คอลัมภ์ E ค่ะ

รบกวนพี่ๆๆ ช่วยหน่อยนะค่ะ

ช่วยยกตัวอย่างคำตอบที่ต้องการมาด้วยว่าต้องการคำตอบที่ชีตใด เซลล์ใด มีค่าเป็นเท่าใด จะได้แนะนำได้ถูกต้องว่าควรจะบันทึก Macro อย่างไรครับ

ต้องการคำตอบที่ sheet3 คอลัมภ์ E ค่ะ
ให้สูตรหา Part Code ใน sheet2 คอลัมภ์ A ที่ไม่ซ้ำกัน แล้วมาแสดงที่ sheet3 เซลล์ E2 ค่ะ

ให้บันทึก Macro โดยขั้นตอนหลักตามด้านล่างครับ

1. คัดลอกข้อมูลมาวางที่คอลัมน์ E
2. คลุมข้อมูลที่ได้จากข้อ 1 แล้วแล้วเมนู Data > Remove Duplicates