EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ - กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
- การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
- สมัครสมาชิกดูขั้นตอนได้ที่ สมัครสมาชิก
- Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้
- การ Login ผ่าน Facebook ดูวิธีที่ Login ผ่าน Facebook
- ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ Reset รหัสผ่าน
- สมัครสมาชิกดูขั้นตอนได้ที่
- มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ ติดต่อผู้ดูแลระบบ
- กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ ตั้งค่าส่วนตัว
- การตั้งและตอบกระทู้ดูได้ที่ วิธีการตั้งและตอบกระทู้
- การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ จัดรูปแบบตัวอักษร
- กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ กำหนดขนาดตัวอักษรใน Browser
การดึงข้อมูลที่ซ้ำกัน มารวมกันด้วยเงื่อนไข
Forum rules
- ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
- ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
- กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
- กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
- กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย
[code]และปิดด้วย[/code]ตัวอย่างเช่น[code]dim r as range[/code]เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) - กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
-
sakonlaphat
- Member
- Posts: 46
- Joined: Sat Jun 20, 2015 2:52 pm
การดึงข้อมูลที่ซ้ำกัน มารวมกันด้วยเงื่อนไข
อยากดึงข้อมูลที่ซ้ำกันหลายชีท มารวมไว้ที่ชีทเดียวค่ะ
You do not have the required permissions to view the files attached to this post.
Re: การดึงข้อมูลที่ซ้ำกัน มารวมกันด้วยเงื่อนไข
ดูเหมือนว่า อาจจะต้องใช้ VBA ครับ
Forum Rules
- อย่าใช้ภาษาแชทในการตอบ-ถาม
- ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
- ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
- ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
- หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
- แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
-
snasui
- Site Admin
- Posts: 30761
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
- Contact:
Re: การดึงข้อมูลที่ซ้ำกัน มารวมกันด้วยเงื่อนไข
สามารถใช้สูตรได้แต่มีหลายขั้นตอนครับ
- คีย์เลข 1-5 ที่ AA1:AA5 เป็นตัวแทนของชื่อชีท
- ที่ AB1 คีย์สูตรเพื่อนับรายการในชีท 1
=COUNTA(INDIRECT("'"&AA1&"'!B3:B1000"))
Enter > Copy ไปด้านล่างถึง AB5 - ที่ AB6 คีย์สูตรเพื่อนับรายการทั้งหมด
=SUM(AB1:AB5)
Enter - ที่ AC1 คีย์สูตรเพื่อใช้สำหรับระบุค่าบรรทัดเริ่มต้นสำหรับรายการของแต่ละชีท
=SUM(AB$1:AB1)-AB1+1
Enter > Copy ไปด้านล่างถึง AC5 - ที่ X4 คีย์สูตรเพื่อ List ชื่อชีทตามรายการที่มีทั้งหมด
=IF(ROWS(X$4:X4)>$AB$6,"",LOOKUP(ROWS(X$4:X4),$AC$1:$AC$5,$AA$1:$AA$5))
Enter > Copy ลงด้านล่างจนพบผลลัพธ์เป็นค่าว่า - ที่ Y4 คีย์สูตรเพื่อ List รายการ Wheel Name ของแต่ละชีท
=IF(X4<>"",INDIRECT("'"&X4&"'!B"&COUNTIF(X$4:X4,X4)+2),"")
Enter > Copy ลงด้านล่างจนพบผลลัพธ์เป็นค่าว่าง - เซลล์ B4 คีย์สูตรเพื่อแสดง Wheel Name เฉพาะค่าที่ไม่ซ้ำจากผลลัพธ์ในคอลัมน์ Y
=IFERROR(INDEX($Y$4:$Y$200,SMALL(IF(FREQUENCY(MATCH($Y$4:$Y$200,$Y$4:$Y$200,0),ROW($Y$4:$Y$200)-ROW($Y$4)+1),ROW($Y$4:$Y$200)-ROW($Y$4)+1),ROWS(B$4:B4))),"")
Ctrl+Shift+Enter > Copy ลงด้านล่าง
Re: การดึงข้อมูลที่ซ้ำกัน มารวมกันด้วยเงื่อนไข
ต้องเขียนสูตรยากๆแบนี้ ผมขอหนีไปซบ VBA ดีกว่าครับsnasui wrote:
- คีย์เลข 1-5 ที่ AA1:AA5 เป็นตัวแทนของชื่อชีท
- ที่ AB1 คีย์สูตรเพื่อนับรายการในชีท 1
=COUNTA(INDIRECT("'"&AA1&"'!B3:B1000"))
Enter > Copy ไปด้านล่างถึง AB5- ที่ AB6 คีย์สูตรเพื่อนับรายการทั้งหมด
=SUM(AB1:AB5)
Enter- ที่ AC1 คีย์สูตรเพื่อใช้สำหรับระบุค่าบรรทัดเริ่มต้นสำหรับรายการของแต่ละชีท
=SUM(AB$1:AB1)-AB1+1
Enter > Copy ไปด้านล่างถึง AC5- ที่ X4 คีย์สูตรเพื่อ List ชื่อชีทตามรายการที่มีทั้งหมด
=IF(ROWS(X$4:X4)>$AB$6,"",LOOKUP(ROWS(X$4:X4),$AC$1:$AC$5,$AA$1:$AA$5))
Enter > Copy ลงด้านล่างจนพบผลลัพธ์เป็นค่าว่า- ที่ Y4 คีย์สูตรเพื่อ List รายการ Wheel Name ของแต่ละชีท
=IF(X4<>"",INDIRECT("'"&X4&"'!B"&COUNTIF(X$4:X4,X4)+2),"")
Enter > Copy ลงด้านล่างจนพบผลลัพธ์เป็นค่าว่าง- เซลล์ B4 คีย์สูตรเพื่อแสดง Wheel Name เฉพาะค่าที่ไม่ซ้ำจากผลลัพธ์ในคอลัมน์ Y
=IFERROR(INDEX($Y$4:$Y$200,SMALL(IF(FREQUENCY(MATCH($Y$4:$Y$200,$Y$4:$Y$200,0),ROW($Y$4:$Y$200)-ROW($Y$4)+1),ROW($Y$4:$Y$200)-ROW($Y$4)+1),ROWS(B$4:B4))),"")
Ctrl+Shift+Enter > Copy ลงด้านล่าง
Forum Rules
- อย่าใช้ภาษาแชทในการตอบ-ถาม
- ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
- ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
- ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
- หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
- แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
-
sakonlaphat
- Member
- Posts: 46
- Joined: Sat Jun 20, 2015 2:52 pm
Re: การดึงข้อมูลที่ซ้ำกัน มารวมกันด้วยเงื่อนไข
ขอบคุณมากค่ะ