การประโยค ออกเป็นคำ ทีละช่อง

[ต้า]

สวัสดีครับอาจารย์ และทุกคน

ผมรบกวนขอสูตรที่ใ้ในการแยกประโยคซ้ายไปขวา เป็นคำ ในแต่ละช่องครับ
เช่น
A1 = This is a black book เป็นประโยค
ใช้สูตรเป็นคำได้ังนี้
A2 = This
A3 = is
A4 = a
A5 = black
A6 = book

ขอบคุณครับ

[logic]

ลองดูจากลิ้งก์นี้ครับ viewtopic.php?t=3797

[ต้า]

ผมลองไปดูในลิ้งที่ให้มาแล้วครับ มันเป็น ลิ้งที่ ใช้สำหรับ การตัดข้อความที่คั่นด้วยเครื่องหมายต่าง ๆ (แนวนอน).
ผมลองเอาสูตรไปใส่ดูเแล้วมันขึ้นเป็น0 ครับ
รบกวนพี่ช่วยเขียนแนะนำหน่อยครับ ว่าผมทำอะไรผิดหรือเปล่า ผมไม่รู้จริงๆครับ

ขอบคุณครับ

[logic]

ผมลองไปดูในลิ้งที่ให้มาแล้วครับ มันเป็น ลิ้งที่ ใช้สำหรับ การตัดข้อความที่คั่นด้วยเครื่องหมายต่าง ๆ (แนวนอน).
ผมลองเอาสูตรไปใส่ดูเแล้วมันขึ้นเป็น0 ครับ
รบกวนพี่ช่วยเขียนแนะนำหน่อยครับ ว่าผมทำอะไรผิดหรือเปล่า ผมไม่รู้จริงๆครับ

ขอบคุณครับ

คั่นด้วยวรรคลลองปรับเป็นแบบนี้ครับ

C1 =TRIM(MID(SUBSTITUTE(" "&$A1," ",REPT(" ",$B1)),COLUMNS($C1:C1)*$B1,$B1))

[DhitiBank]

หรืออีกวิธีหนึ่ง ลองแบบนี้ครับ

ที่ A2 คีย์
=IF(AND(ISERR(B2),ISERR(B1)),"",MID($A$1,B1+1,IF(ISERR(B2),255,B2)-B1-1))
Enter

ที่ B2 คีย์
=SMALL(IF(MID($A$1,ROW(INDIRECT("a1:a"&LEN($A$1))),1)=" ",ROW(INDIRECT("a1:a"&LEN($A$1)))),ROWS(B$2:B2))
กด Ctrl+Shift ค้าง แล้วกด Enter

คัดลอกทั้ง 2 สูตรลงด้านล่างครับ

[DhitiBank]

เพิ่งเข้าไปดูในลิ้งค์ที่คุณ joo ให้ไว้ สูตรพิสดารจริงๆ รวบรัดดีและไม่ต้องใช้อาร์เรย์ด้วย ขอบคุณอาจารย์และคุณ joo มากครับ

ถ้าลองตามวิธีในลิ้งค์

B2 คีย์
=len(a1)

A2 คีย์
=TRIM(MID(SUBSTITUTE(" "&$A$1," ",REPT(" ",$B$2)),ROWS(A$2:A2)*$B$2,$B$2))
enter --> คัดลอกลงล่างครับ