Page 1 of 1

สอบถามการแยกข้อความข้ามชีทค่ะ

Posted: Tue Apr 17, 2018 8:38 pm
by Foamjubz
ข้อมูลใน Sheet1 จะเป็นแบบนี้ค่ะ
Sheet1.png

ต้องการแยกมา Sheet2 แบบนี้
คอลัมน์B - มีแค่ชื่อ ไม่มีนามสกุล
คอลัมน์C - ถ้าไม่มีเบอร์โทรศัพท์ต้องการให้ใส่เครื่องหมาย - แทนค่ะ
คอลัมน์D - เป็นชื่อจังหวัด
คอลัมน์E - รหัสไปรษณีย์
คอลัมน์F - ที่อยู่ที่เหลือทั้งหมด
Sheet2.png

สมุดงาน.xlsx

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

Posted: Tue Apr 17, 2018 9:21 pm
by snasui
:D ตัวอย่างสูตรตามด้านล่างครับ
  1. ที่ B2 คีย์
    =LEFT(Sheet1!B2,FIND(" ",Sheet1!B2)-1)
    Enter > Copy ลงด้านล่าง
  2. ที่ 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 ลงด้านล่าง
  3. ที่ E2 คีย์
    =RIGHT(Sheet1!B2,5)
    Enter > Copy ลงด้านล่าง
  4. ที่ D2 คีย์
    =TRIM(SUBSTITUTE(MID(Sheet1!B2,FIND("จ.",Sheet1!B2)+2,100),E2,""))
    Enter > Copy ลงด้านล่าง
  5. ที่ F2 คีย์
    =TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Sheet1!B2,E2,""),"จ."&D2,""),"("&C2&")",""),B2,""))
    Enter > Copy ลงด้านล่าง

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

Posted: Tue Apr 17, 2018 9:46 pm
by Foamjubz
ตอนนี้แยกคอลัมน์ได้แล้วค่ะ แต่ขอรบกวนอีกนิดนึงนะคะ
ตรง Sheet2 คอลัมน์C อยากให้เบอร์โทรศัพท์จัดอยู่ในรูปแบบนี้ค่ะ 081-111-2222
ต้องไปกำหนดตรงไหน หรือใส่สูตรอะไรคะ

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

Posted: Tue Apr 17, 2018 9:55 pm
by snasui
:D เพื่อไม่ให้กระทบกับสูตรในคอลัมน์ F ให้แทรกคอลัมน์ C ขึ้นมา 1 คอลัมน์ครับ (เมื่อแทรกแล้วคอลัมน์ C เดิมจะย้ายไปเป็นคอลัมน์ D)

จากนั้น C2 คีย์สูตร

=If(Len(D2)>1,Text(Substitute(D2,"-",""),"000-000-000"),D2)

Enter > Copy ลงด้านล่าง > ซ่อนคอลัมน์ D

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

Posted: Tue Apr 17, 2018 9:58 pm
by Foamjubz
ได้แล้วค่า ขอบคุณมากๆเลยค่ะ🙏🏻🙏🏻🙏🏻

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

Posted: Tue Apr 17, 2018 10:56 pm
by Foamjubz
คือเพิ่งสังเกตว่าพอแทรก คอลัมน์C แล้วเลข 0 หน้าเบอร์โทรศัพท์มันหายไป
แก้ตรงไหนคะแบบนี้

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

Posted: Tue Apr 17, 2018 11:27 pm
by snasui
:D กรุณาเขียนคำถามใหม่ให้ถูกต้องตามกติกา อ่านกฎการใช้บอร์ดทุกข้อด้านบน :roll: โดยเฉพาะข้อ 1 ซ้ำอีกครั้งครับ

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

Posted: Tue Apr 17, 2018 11:34 pm
by Foamjubz
snasui wrote: Tue Apr 17, 2018 11:27 pm :D กรุณาเขียนคำถามใหม่ให้ถูกต้องตามกติกา อ่านกฎการใช้บอร์ดทุกข้อด้านบน :roll: โดยเฉพาะข้อ 1 ซ้ำอีกครั้งครับ
คือเพิ่งสังเกตว่าพอแทรก คอลัมน์C แล้วเลข 0 หน้าเบอร์โทรศัพท์มันหายไป
แก้ตรงไหนคะแบบนี้

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

Posted: Tue Apr 17, 2018 11:34 pm
by snasui
Foamjubz wrote: Tue Apr 17, 2018 10:56 pm คือเพิ่งสังเกตว่าพอแทรก คอลัมน์C แล้วเลข 0 หน้าเบอร์โทรศัพท์มันหายไป
แก้ตรงไหนคะแบบนี้
:D ปรับสูตรเป็นด้านล่างครับ

=If(Len(D2)>1,Text(Substitute(D2,"-",""),"000-000-0000"),D2)

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

Posted: Tue Apr 17, 2018 11:36 pm
by Foamjubz
ขอบคุณอีกครั้งค่ะ