:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

แยกค่าซ้ำๆกันออกไปไว้อีกชีต

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
User avatar
XDoll
Bronze
Bronze
Posts: 261
Joined: Sun Mar 03, 2013 9:23 pm

แยกค่าซ้ำๆกันออกไปไว้อีกชีต

#1

Post by XDoll »

รบกวนอาจารย์ครับ
ผมต้องการแยกสัญญาลูกค้าที่ซ้ำๆกันไว้อีกชีต โดยเลือกเพียงค่าใดค่าหนึ่ง และมีตัวแปรให้เลือกตามความสำคัญ(Colum E) รายละเอียดตามไฟล์ที่แนบไว้ครับ
sheet [name] เป็นไฟล์ตั้งต้น
sheet [Select] เป็นไฟล์ที่ต้องการที่จะให้เป็น
You do not have the required permissions to view the files attached to this post.
User avatar
DhitiBank
Gold
Gold
Posts: 1676
Joined: Mon Oct 15, 2012 12:07 am

Re: แยกค่าซ้ำๆกันออกไปไว้อีกชีต

#2

Post by DhitiBank »

... ผมลบความคิดเห็นออกแล้ว ตอนแรกตั้งใจจะถามลำดับความสำคัญเพิ่ม แต่พอดูไฟล์แนบอีกครั้ง... มีอยู่แล้วนี่นา ขออภัยครับ
User avatar
DhitiBank
Gold
Gold
Posts: 1676
Joined: Mon Oct 15, 2012 12:07 am

Re: แยกค่าซ้ำๆกันออกไปไว้อีกชีต

#3

Post by DhitiBank »

ลองแบบนี้ครับ
ที่ชีท Select

1 คอลัมน์ช่วย 3 คอลัมน์:
ที่ H3 คีย์
=IF(All!A3="",0,IF(COUNTIF(All!$A$3:All!A3,All!A3)=1,1,0))
กด enter

ที่ I3 คีย์
=IF(All!E3="","",IF(All!E3="TC",1,IF(All!E3="TM",2,IF(All!E3="TH",3,IF(All!E3="TO",4,5)))))
กด enter

ที่ J3 คีย์
=IF(ISERR(MIN(IF(All!$A$3:$A$20=A3,Select!$I$3:$I$20,""))),"",MIN(IF(All!$A$3:$A$20=A3,Select!$I$3:$I$20,"")))
กด Ctrl + Shift + Enter

2 ในตาราง
ที่ A3 คีย์
=IF(ISERR(INDEX(All!$A$3:$A$20,SMALL(IF(Select!$H$3:$H$20=1,ROW($H$3:$H$20)-ROW($H$3)+1),ROWS($A$3:A3)))),"",INDEX(All!$A$3:$A$20,SMALL(IF(Select!$H$3:$H$20=1,ROW($H$3:$H$20)-ROW($H$3)+1),ROWS($A$3:A3))))
กด Ctrl + Shift + Enter

ที่ B3 คีย์
=IF($A3="","",INDEX(All!$B$3:$B$20,MATCH($A3,All!$A$3:$A$20,0)))
enter

ที่ C3 คีย์
=IF($A3="","",INDEX(All!$C$3:$C$20,MATCH($A3,All!$A$3:$A$20,0)))
enter

ที่ D3 คีย์
=IF($A3="","",INDEX(All!$D$3:$D$20,MATCH($A3,All!$A$3:$A$20,0)))
กด enter

ที่ E3 คีย์
=IF(J3="","",IF(J3=1,"TC",IF(J3=2,"TM",IF(J3=3,"TH",IF(J3=4,"TO","-")))))
กด enter

copy ลงมาด้านล่าง

แต่แบบนี้ค่อนข้างฟุ่มเฟือย เพราะต้องมีคอลัมน์ช่วยตั้ง 3 คอลัมน์ ไว้รอสูตรแบบรัดกุมจากอาจารย์และเพื่อนท่านอื่นดูครับ
User avatar
XDoll
Bronze
Bronze
Posts: 261
Joined: Sun Mar 03, 2013 9:23 pm

Re: แยกค่าซ้ำๆกันออกไปไว้อีกชีต

#4

Post by XDoll »

ขอบคุณมากครับ..ตรงตามความต้องการเลยครับ
joo
Gold
Gold
Posts: 1213
Joined: Sat Apr 17, 2010 3:50 pm

Re: แยกค่าซ้ำๆกันออกไปไว้อีกชีต

#5

Post by joo »

:D ช่วยเสริมอีกแนวทางหนึ่งครับในซีท select เซลล์ A3 คีย์ =LOOKUP(CHAR(255),CHOOSE({1,2},"",INDEX(All!A$3:A$12,SMALL(IF(MATCH(All!A$3:A$12,All!A$3:A$12,0)=ROW(All!A$3:A$12)-ROW(All!A$3)+1,ROW(All!A$3:A$12)-ROW(All!A$3)+1),ROWS(A$3:A3))))) กดแป้น Ctrl+Shift+Enter พร้อมกัน แล้วคัดลอกไปทางขวาและลงล่าง
ที่ D3 คีย์ =LOOKUP(9.9999999999999E+307,CHOOSE({1,2},"",INDEX(All!D$3:D$12,SMALL(IF(MATCH(All!D$3:D$12,All!D$3:D$12,0)=ROW(All!D$3:D$12)-ROW(All!D$3)+1,ROW(All!D$3:D$12)-ROW(All!D$3)+1),ROWS(D$3:D3))))) กดแป้น Ctrl+Shift+Enter พร้อมกัน แล้วคัดลอกลงด้านล่าง
ลองดูตามไฟล์แนบครับ
You do not have the required permissions to view the files attached to this post.
User avatar
tupthai
Bronze
Bronze
Posts: 302
Joined: Sat Feb 04, 2012 2:49 pm

Re: แยกค่าซ้ำๆกันออกไปไว้อีกชีต

#6

Post by tupthai »

สร้าง dynamic name rangeชื่อ List
=OFFSET(All!$A$3,0,0,COUNTA(All!$A:$A)-1,1)
คอลัมน์ A หาค่า Unique list
ที่ A3 พิมพ์สูตร
=IF(ISNA(INDEX(List, MATCH(0, COUNTIF($A$2:A2, List), 0))), "", INDEX(List, MATCH(0, COUNTIF($A$2:A2, List), 0)))
เป็นสูตร Array พิมพ์สูตรเสร็จกด Ctrl+Shift+Enter
copy ลงด้านล่าง

อ้างอิงจาก
http://www.get-digital-help.com/2009/03 ... ne-column/

ที่ B3 พิมพ์สูตร
=INDEX(All!$A$3:$E$12,MATCH($A3&INDEX({"-";"TC";"TH";"TM";"TO"},MATCH(MAX(($A3=All!$A$3:$A$12)*(LOOKUP(All!$E$3:$E$12,{"-";"TC";"TH";"TM";"TO"},{1;5;3;4;2}))),{1;5;3;4;2},0)),All!$A$3:$A$12&All!$E$3:$E$12,0),COLUMN(B1))
เป็นสูตร Array พิมพ์สูตรเสร็จกด Ctrl+Shift+Enter
copyไปทางขวาและลงด้านล่าง
You do not have the required permissions to view the files attached to this post.
User avatar
XDoll
Bronze
Bronze
Posts: 261
Joined: Sun Mar 03, 2013 9:23 pm

Re: แยกค่าซ้ำๆกันออกไปไว้อีกชีต

#7

Post by XDoll »

ขอบคุณอาจารย์ทุกท่านครับ
Post Reply