Snasui Excel Forum

ผมต้องการ Filter ข้อมูล หลายพัน บรรทัด แล้วcopy ไปวางยัง อีก sheet แต่ว่า มันไปแค่ บรรทัดแรกครับ
เมื่อลองดูจะพบว่า มันไม่ยอม Filter ตามที่code ระบุ ไว้ ผมลองทำแบบ ใช้ข้อมูล30บรรทัด สามารถ ทำได้ตามที่ต้องการครับ
แต่เอามาใช้กับข้อมูลจิง หลายพันบรรทัด ใช้ไม่ได้ครับ
ช่วยดูให้ที ขอบคุณครับ

how = WorksheetFunction.CountA(Range("E:E"))
Columns("E:E").Select
Selection.AutoFilter
ActiveSheet.Range("$E$1" & ":$E" & how).AutoFilter Field:=1, Criteria1:="bay"

Cells.Select
Selection.Copy
Sheets("Sheet1").Select
Cells.Select
ActiveSheet.Paste

ตัวอย่างการปรับ Code ครับ

จาก Criteria1:="bay" เป็น Criteria1:="*bay*"

การโพสต์ Code ควรโพสต์ให้เป็น Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

snasui wrote: ตัวอย่างการปรับ Code ครับ

จาก Criteria1:="bay" เป็น Criteria1:="*bay*"

การโพสต์ Code ควรโพสต์ให้เป็น Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ขออภัยครับ พรึ่งเข้ามาใหม่
ทำได้แล้ว ผมขอคำอธิบายด้วยได้ไหมครับ ผมพรึ่งหัดเขียน ทำไมต้องมี * * ขอบคุณครับ

เครื่องหมายดอกจันแปลว่าค่าใด ๆ ก็ได้

กรณีต้องการ Filter เซลล์ใด ๆ ที่มีคำว่า bay จึงควรบอกโปรแกรมให้ทราบด้วยว่าเราต้องการหาในลักษณะ "ประกอบด้วย" (Contain) ค่าที่ต้องการ หมายถึงข้างหน้าและข้างหลัง bay จะเป็นอะไรก็ได้ ไม่ใช่ค้นหาแบบตรงตัว หากตรงตัว โปรแกรมจะไม่สามารถหาค่า bay ในเซลล์ใด ๆ ได้ ยกเว้นว่าเซลล์นั่น ๆ เป็นคำว่า bay ครับ

ขอบคุณมากครับ เข้าใจมากขึ้น ขอ อภัยมาตอบช้าครับผม