: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

ขอวิธีการตัดตัวเลขซ้ำครับ

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
zraptor
Member
Member
Posts: 11
Joined: Sat Jun 24, 2017 12:38 pm

ขอวิธีการตัดตัวเลขซ้ำครับ

#1

Post by zraptor »

ขอสอบถามหน่อยครับ

อยากได้วิธีจัดการกับตัวเลขซ้ำในหนึ่งเซลล์ครับ

เช่น 1234456 อยากให้ผลลัพท์ ออกมาเป็น 123456
หรือ 569094 อยากให้ผลลัพท์ ออกมาเป็น 56904

พอจะมีวิธีการไหนบ้างครับ
ขอบคุณมากครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#2

Post by snasui »

:D ตัวอย่างสูตรครับ

สมมุติ A1 คือค่าที่ต้องการตัดค่าซ้ำ ที่เซลล์ใด ๆ คีย์

=SUM(MID(A1,SMALL(IF(FREQUENCY(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),0),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&COUNT(IF(FREQUENCY(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),0),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&LEN(A1)))))))),1)*10^((COUNT(IF(FREQUENCY(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),0),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&LEN(A1)))))+1)-ROW(INDIRECT("1:"&COUNT(IF(FREQUENCY(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),0),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&LEN(A1)))))))))/10

Ctrl+Shift+Enter อ่านวิธีกดแป้นด้านล่างอย่างละเอียดครับ

!
Note: Ctrl+Shift+Enter เป็นการสร้างสูตร Array โดยสามารถเลือกดำเนินการตามข้อ 1 หรือ 2 ด้านล่าง
  1. กรณีคีย์สูตรเอง เมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl และ Shift พร้อมกันค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array
  2. กรณี Copy สูตรไปวางให้กดแป้น F2 เพื่อทำการ Edit Cell นั้นก่อน จากนั้นกดแป้น Ctrl และ Shift พร้อมกันค้างไว้แล้วตามด้วย Enter เพื่อสร้างเป็นสูตร Array
  3. หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้ไม่สามารถคีย์เข้าไปเอง จะต้องมาด้วยการกดแป้น Ctrl+Shift+Enter เท่านั้น ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง
  4. การแก้ไขเปลี่ยนแปลงสูตร Array จะต้องกดแป้นให้รับสูตรด้วย Ctrl+Shift+Enter ทุกครั้ง
zraptor
Member
Member
Posts: 11
Joined: Sat Jun 24, 2017 12:38 pm

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#3

Post by zraptor »

ขอบคุณมากเลยครับ เดี๋ยวจะลองไปใช้ดูครับ
zraptor
Member
Member
Posts: 11
Joined: Sat Jun 24, 2017 12:38 pm

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#4

Post by zraptor »

เรียนสอบถามเพิ่มครับ
ถ้าหากว่าใน column A มี ข้อมูลดังนี้ครับ
123
124
125
124
345
356
345
อยากตัดตัวเลขที่ซ้ำออกแล้วกรุ๊ป ให้เหลือแค่ 1 ตัว ดังนี้ครับ
123
124
125
345
356
ไม่ทราบว่าจะเขียนสูตรยังไงครับ
ขอบคุณครับ
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#5

Post by puriwutpokin »

ถ้าหากไม่ได้มีการทำบ่อยๆ ใช้ฟังก์ชั่นตามรูปนี้ได้เลยครับ
You do not have the required permissions to view the files attached to this post.
:shock: :roll: :D
zraptor
Member
Member
Posts: 11
Joined: Sat Jun 24, 2017 12:38 pm

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#6

Post by zraptor »

ต้องขอบคุณมากเลยครับที่แนะนำ

แต่ว่า input ที่ผมใส่เข้าไป มันมีการป้อนอยู่ตลอดน่ะครับ
เช่น คีย์ข้อมูลที่่คอลัมน์ A แล้วให้ผลลัพท์ แสดงผลออกมาที่ B ทันที โดยที่ไม่ต้องใช้ฟังก์ชั่นสำเร็จรูปทุกครั้ง
เลยพยายามมองหาสูตรที่จะทำให้ออกมาได้น่ะครับ
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#7

Post by puriwutpokin »

ถ้าเป็นสูตรก็ที่ B1=IFERROR(INDEX(A$1:A$10&"",SMALL(IF(FREQUENCY(MATCH(A$1:A$10&"",A$1:A$10&"",0),ROW(A$1:A$10)-ROW($A$1)+1),ROW(A$1:A$10)-ROW($A$1)+1),ROWS(B$1:B1)))+0,"") กด Shift+Ctrl+Enter คัดลอกลงครับ
:shock: :roll: :D
linzhengli
Bronze
Bronze
Posts: 336
Joined: Wed Mar 01, 2017 9:15 am
Excel Ver: 2003

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#8

Post by linzhengli »

ผมขอสูตรสำหรับ excel 2003 ทั้งสองกรณีข้างต้นบ้างครับ และขอบคุณมา ณ โอกาสนี้
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#9

Post by snasui »

:D สูตรที่ผมตอบใน #2 ไม่สามารถใช้กับ Excel 2003 ได้ เนื่องจากซ้อนกันเกิน 7 ชั้นหากจำเป็นต้องใช้ให้เขียนมาด้วย VBA ติดตรงไหนแล้วค่อยถามกันต่อครับ

ส่วนสูตรที่คุณ puriwutpokin กรุณาช่วยตอบมานั้น สามารถปรับเป็นด้านล่างครับ

=IF(ROWS(B$1:B1)<=SUM(($A$1:$A$100<>"")/COUNTIF(A$1:A$100,A$1:A$100&"")),INDEX(A$1:A$100,SMALL(IF(FREQUENCY(IF($A$1:$A$100<>"",MATCH(A$1:A$100,A$1:A$100,0)),ROW(A$1:A$100)-ROW($A$1)+1),ROW(A$1:A$100)-ROW($A$1)+1),ROWS(B$1:B1))),"")
linzhengli
Bronze
Bronze
Posts: 336
Joined: Wed Mar 01, 2017 9:15 am
Excel Ver: 2003

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#10

Post by linzhengli »

ขอบคุณมา ณ โอกาสนี้
ขอแสดงความนับถือ
林正利先生
zraptor
Member
Member
Posts: 11
Joined: Sat Jun 24, 2017 12:38 pm

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#11

Post by zraptor »

ขอบคุณมากที่ช่วยตอบครับ สามารถนำไปใช้ได้ผลดีเลยครับ
อยากจะขอเรียนถามเพิ่มเติมอีกนิดครับ

A B
1234 50
6789 55
3456 21
2234 90
8900 23
6789 33
2234 10
ต้องการผลลัพท์ของ column B ให้ เป็นรวมของเลขที่ซ้ำกัน(column A) ดังนี้ครับ โดยเรียงลำดับจาน้อยไปมาก
A B
1234 50
2234 100
3456 21
6789 88
8900 23
จะต้องแก้สูตรที่ให้มายังไงครับ
ขอบคุณมากครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#12

Post by snasui »

:D ใช้ Sumif ครับ

หากไม่เข้าใจหรือทำไม่ได้ ให้แนบไฟล์ตัวอย่างมาด้วยจะได้ตอบแบบอ้างอิงเซลล์ได้ครับ
zraptor
Member
Member
Posts: 11
Joined: Sat Jun 24, 2017 12:38 pm

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#13

Post by zraptor »

ตามไฟล์แนบครับอาจารย์
ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#14

Post by puriwutpokin »

ที่e2=SUMIF(A$2:A$8,D2,B$2:B$8) copy ลงล่างครับ
:shock: :roll: :D
zraptor
Member
Member
Posts: 11
Joined: Sat Jun 24, 2017 12:38 pm

Re: ขอวิธีการตัดตัวเลขซ้ำครับ

#15

Post by zraptor »

ขอบคุณมากครับ คุณ puriwutpokin
ส่วนเรื่องการให้มันเรียงค่าผลลัพท์จากน้อยไปมาก คงต้องใช้การ sort เองอีกที
Post Reply