Snasui Excel Forum

อยากได้สูตรนี้เป็น Code VBA เพื่อจะให้ทำงานแบบอัตโนมัติ โดยการกดปุ่มค่ะ

=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))))

VBA ต้องเขียนมาเองตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยถามกันต่อครับ

ลองใช้สูตรแล้วทำการบันทึก macro แล้วเกิด Error ค่ะ

กรุณาแนบเป็นไฟล์ Excel มาเพื่อน ๆ จะได้ช่วยกันทดสอบได้ครับ