

- กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ
- การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
- สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่าน
- Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้
กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
- สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่าน
- เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว
- วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้
- การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ => กำหนดขนาดตัวอักษรใน Browser
สอบถามการแยกข้อความข้ามชีทค่ะ
Forum rules
- ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
- ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
- อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
- ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
- สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
- แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
สอบถามการแยกข้อความข้ามชีทค่ะ
ข้อมูลใน Sheet1 จะเป็นแบบนี้ค่ะ
ต้องการแยกมา Sheet2 แบบนี้
คอลัมน์B - มีแค่ชื่อ ไม่มีนามสกุล
คอลัมน์C - ถ้าไม่มีเบอร์โทรศัพท์ต้องการให้ใส่เครื่องหมาย - แทนค่ะ
คอลัมน์D - เป็นชื่อจังหวัด
คอลัมน์E - รหัสไปรษณีย์
คอลัมน์F - ที่อยู่ที่เหลือทั้งหมด
ต้องการแยกมา Sheet2 แบบนี้
คอลัมน์B - มีแค่ชื่อ ไม่มีนามสกุล
คอลัมน์C - ถ้าไม่มีเบอร์โทรศัพท์ต้องการให้ใส่เครื่องหมาย - แทนค่ะ
คอลัมน์D - เป็นชื่อจังหวัด
คอลัมน์E - รหัสไปรษณีย์
คอลัมน์F - ที่อยู่ที่เหลือทั้งหมด
You do not have the required permissions to view the files attached to this post.
- snasui
- Site Admin
- Posts: 23181
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Contact:
Re: สอบถามการแยกข้อความข้ามชีทค่ะ

- ที่ B2 คีย์
=LEFT(Sheet1!B2,FIND(" ",Sheet1!B2)-1)
Enter > Copy ลงด้านล่าง - ที่ C2 คีย์
=IF(ISNUMBER(--MID(Sheet1!B2,FIND("(",Sheet1!B2)+1,1)),MID(Sheet1!B2,FIND("(",Sheet1!B2)+1,FIND(")",Sheet1!B2)-FIND("(",Sheet1!B2)-1),"-")
Enter > Copy ลงด้านล่าง - ที่ E2 คีย์
=RIGHT(Sheet1!B2,5)
Enter > Copy ลงด้านล่าง - ที่ D2 คีย์
=TRIM(SUBSTITUTE(MID(Sheet1!B2,FIND("จ.",Sheet1!B2)+2,100),E2,""))
Enter > Copy ลงด้านล่าง - ที่ F2 คีย์
=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Sheet1!B2,E2,""),"จ."&D2,""),"("&C2&")",""),B2,""))
Enter > Copy ลงด้านล่าง
snasui (คนควน)
MBA in Accounting, MVP-Excel (2010-2017), MOS
Index, Match, Small, Sumif, Countif, Frequency, Sumproduct, Mmult, Lookup, Vlookup, Indirect, Conditional Formatting, Isnumber, Search, PivotTable, Array, Data Validation


Re: สอบถามการแยกข้อความข้ามชีทค่ะ
ตอนนี้แยกคอลัมน์ได้แล้วค่ะ แต่ขอรบกวนอีกนิดนึงนะคะ
ตรง Sheet2 คอลัมน์C อยากให้เบอร์โทรศัพท์จัดอยู่ในรูปแบบนี้ค่ะ 081-111-2222
ต้องไปกำหนดตรงไหน หรือใส่สูตรอะไรคะ
ตรง Sheet2 คอลัมน์C อยากให้เบอร์โทรศัพท์จัดอยู่ในรูปแบบนี้ค่ะ 081-111-2222
ต้องไปกำหนดตรงไหน หรือใส่สูตรอะไรคะ
You do not have the required permissions to view the files attached to this post.
Last edited by Foamjubz on Tue Apr 17, 2018 9:58 pm, edited 1 time in total.
- snasui
- Site Admin
- Posts: 23181
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Contact:
Re: สอบถามการแยกข้อความข้ามชีทค่ะ

จากนั้น C2 คีย์สูตร
=If(Len(D2)>1,Text(Substitute(D2,"-",""),"000-000-000"),D2)
Enter > Copy ลงด้านล่าง > ซ่อนคอลัมน์ D
snasui (คนควน)
MBA in Accounting, MVP-Excel (2010-2017), MOS
Index, Match, Small, Sumif, Countif, Frequency, Sumproduct, Mmult, Lookup, Vlookup, Indirect, Conditional Formatting, Isnumber, Search, PivotTable, Array, Data Validation


Re: สอบถามการแยกข้อความข้ามชีทค่ะ
ได้แล้วค่า ขอบคุณมากๆเลยค่ะ





Re: สอบถามการแยกข้อความข้ามชีทค่ะ
คือเพิ่งสังเกตว่าพอแทรก คอลัมน์C แล้วเลข 0 หน้าเบอร์โทรศัพท์มันหายไป
แก้ตรงไหนคะแบบนี้
แก้ตรงไหนคะแบบนี้
You do not have the required permissions to view the files attached to this post.
Last edited by Foamjubz on Tue Apr 17, 2018 11:31 pm, edited 1 time in total.
- snasui
- Site Admin
- Posts: 23181
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Contact:
Re: สอบถามการแยกข้อความข้ามชีทค่ะ


snasui (คนควน)
MBA in Accounting, MVP-Excel (2010-2017), MOS
Index, Match, Small, Sumif, Countif, Frequency, Sumproduct, Mmult, Lookup, Vlookup, Indirect, Conditional Formatting, Isnumber, Search, PivotTable, Array, Data Validation


Re: สอบถามการแยกข้อความข้ามชีทค่ะ
คือเพิ่งสังเกตว่าพอแทรก คอลัมน์C แล้วเลข 0 หน้าเบอร์โทรศัพท์มันหายไป
แก้ตรงไหนคะแบบนี้
You do not have the required permissions to view the files attached to this post.
- snasui
- Site Admin
- Posts: 23181
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Contact:
Re: สอบถามการแยกข้อความข้ามชีทค่ะ

=If(Len(D2)>1,Text(Substitute(D2,"-",""),"000-000-0000"),D2)
snasui (คนควน)
MBA in Accounting, MVP-Excel (2010-2017), MOS
Index, Match, Small, Sumif, Countif, Frequency, Sumproduct, Mmult, Lookup, Vlookup, Indirect, Conditional Formatting, Isnumber, Search, PivotTable, Array, Data Validation


Re: สอบถามการแยกข้อความข้ามชีทค่ะ
ขอบคุณอีกครั้งค่ะ