รวมหัวข้อแต่ละไฟล์ มารวมในตาราง

[Gjeehkt]

สวัสดีค่ะ

รบกวนสอบถามว่า มีไฟล์ใบวางบิลอยู่หลายไฟล์มากค่ะ อยากจะเอาส่วนด้านบนของแต่ละไฟล์ มารวมเป็นตารางอันเดียวกันต้องทำยังไงคะ

ขอบคุณค่ะ
ปิยะพร

[parakorn]

ข้อมูลอยู่ตำแหน่งเดียวกันทุกไฟล์หรือไม่ครับ?

[Gjeehkt]

ใช่ค่ะ

[parakorn]

ผมจะอิงว่าข้อมูลทุกไฟล์ตรงกับ บริษัท มากุจำกัด ในไฟล์ที่แนบมานะครับ

รวบรวมไฟล์ไว้ที่ Folder ที่สร้างใหม่ทั้งหมด > สร้างไฟล์ที่จะรวมข้อมูลเก็บไว้ที่โฟล์เดอร์นี้เช่นกันครับ >
เปิดไฟล์ที่สร้างมาแล้วทำตามขั้นตอนนี้ครับ

A1 =REPLACE(CELL("filename"),FIND("[",CELL("filename")),LEN(CELL("filename")),"*")

ไปที่ Formulas > Define Names > Define Names > ตั้งชื่อว่า "Fileslist" ตรง Refer to ใส่สูตร =FILES($A$1) > Ok

A3 =INDEX(Fileslist,ROWS($A$3:A3)) Enter+Copy ลงด้านล่าง จะได้ชื่อไฟล์ที่อยู่ในโฟล์เดอร์นี้ทั้งหมด
B3 =MID(INDIRECT(A3&"!D1"),FIND(" ",INDIRECT(A3&"!D1"))+1,255)
C3 =INDIRECT(A3&"!E2") ปรับ format ให้เป็นวันที่
D3 =INDIRECT(A3&"!B3")
E3 =INDIRECT(A3&"!B4")
F3 =INDIRECT(A3&"!B5")
G3 =MID(INDIRECT(A3&"!A6"),FIND(" ",INDIRECT(A3&"!A6"))+1,255)
ทั้งหมด Enter+Copy ลงด้านล่าง

[Gjeehkt]

ขอโทษนะคะ หัวด้านบนมีข้อมูลแบบในรูป ต้องแก้สูตรไหมคะ
ขอบคุณค่ะ

[parakorn]

ขอโทษนะคะ หัวด้านบนมีข้อมูลแบบในรูป ต้องแก้สูตรไหมคะ
ขอบคุณค่ะ

สังเกต Cell ที่อ้างอิงในแต่ลบ่ะสูตร และ ปรับให้เข้ากับข้อมูลจริงครับ เช่น
=MID(INDIRECT(A3&"!D1"),FIND(" ",INDIRECT(A3&"!D1"))+1,255)
ปรับเป็น
=MID(INDIRECT(A3&"!D4"),FIND(" ",INDIRECT(A3&"!D4"))+1,255)

กรณี Cell ที่ Merge กันให้ใช้ Cell แรกเป็น Reference (กรณีนี้คือ D4)
ส่วนบรรทัดถัดๆไปก็คล้ายๆกันครับ ลองปรับดูครับ

[Gjeehkt]

มันขึ้นแบบนี้ ไม่ทราบว่าทำผิดตรงไหนคะ

[Gjeehkt]

ขอโทษค่ะ ไม่ได้ใส่รูป

[parakorn]

เปิดไฟล์ต้นทางด้วยครับ
กรณีไม่ต้องการเปิดไฟล์ต้นทางไว้ แนะนำให้ใช้ VBA แต่ผู้ถามจำเป็นต้องเขียนมาเบื้องต้น ตามกฎของบอร์ดก่อน เนื่องจากเป็นการ Programing ครับ
เบื้องต้นแนะนำให้เปิดไฟล์เพื่อให้เกิด Result แล้วทำการถอดสูตร แล้วค่อยปิดไฟล์

[Gjeehkt]

ขอบคุณค่ะ