Snasui Excel Forum

ลองเปลี่ยนแบบไม่ใช่ Array ดูครับ
=IFERROR(INDEX('2.โอน'!$N$3:$N$25000,AGGREGATE(15,6,(ROW('2.โอน'!$A$3:$A$25000)-ROW('2.โอน'!$A$3)+1)/('2.โอน'!$A$3:$A$25000=$A4805),COLUMNS($N4805:N4805))),)


ขอบคุณครับ เร็วขึ้นระดับนึงเลยครับ แต่พอไปใส่ข้อมูลให้ครบยังช้าอยู่เหมือนกันครับเดี๋ยวลองหาวิธีอื่นใช้ค ...

อันดับแรก ไล่ลบสี และ เส้นประ ที่ใส่จนถึงบรรทัดสุดท้ายออกให้หมดครับ โดยใช้วิธี คลุมทั้งแถวคลิ๊กขวาแล้ว Delete ทิ้งสองครั้ง ทำให้ครบทุกชีท Save ไฟล์แล้วปิดเปิดใหม่ดู แล้วลองดูว่าดีขึ้นหรือไม่ครับ


ขอบคุณครับลองทำตามแล้วครับ ขนาดกับความเร็วเพิ่มนิดหน่อย แต่ตอนใช่งาน Sheetระบบ ให้ไปเก็บข้อมูลไว้ท ...

รบกวนช่วยดูไฟล์ที่แนบมาให้หน่อยครับว่ามีสูตรตรงไหนปรับแก้ให้ลดความซ้ำซ้อนหรือแก้ไขให้โปรแกรมไวขึ้นไหมครับ เพราะข้อมูลมีปริมานมากและจะต้องมีเพิ่มขึ้นอีก
***หมายเหตุ ผมมีความรู้น้อยครับสูตรทั้งหมดได้มาจากการดัดแปลงและทำความเข้าใจจากในบอร์ดนี้เกือบทั้งหมด ขอบพระคุณครับ
*** ไฟล์แนบมีขนาดใหญ่ เลยลบข้อม ...

ขอบพระคุณมากๆเลยครับ ทดลองแล้วไม่ติดปัญหาครับ ขออภัยเรื่องแนบไฟล์และหัวข้อโพสให้เป็นข้อมูลศึกษาสำหรับประโยชน์ของผู้เรียนรู้นะครับ

ไม่ค่อยมีความรู้เรื่องcode VB ครับ แต่จะลองพยายามครับ ขอบพระคุณมากครับ

ไฟล์เดิมมันมีข้อมูลอยู่ครับ และไม่ได้เป็นสิ่งที่อยากขอให้ช่วย เลยรบกวนขอเป็นช่วยเขียนcode ที่เอาไว้ก็อปปี้ข้อมูลที่เลือกไว้จากชีทนึงไปอีกชีทนึงให้หน่อยครับ โดยอยากให้ข้อมูลที่ก็อปปี้ไปวาง เรียงลงมาเรื่อยๆครับ ขอโทษด้วยครับ ตอนแรกคิดว่าเอาcodeเก่ามาแก้ไขอาจจะสะดวกกับอาจารย์และพี่ๆทุกท่านมากกว่าเข ...

แก้ไขแล้วครับ ขอโทษที่ไม่อ่านระเบียบให้ดีครับ

Sheets("abc").Select
Range("D3:Q3").Select
Selection.Copy
Sheets("dfg").Select
Cells(1, Cells(2, Columns.Count).End(xlToLeft).Column + 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False



จากCodeเก่า ถ้ารัน จะก ...