ไปยังเนื้อหาหลัก

วิธีแบ่งข้อความออกเป็นคอลัมน์แยกตามตัวพิมพ์ใหญ่ใน Excel

doc แยกตามทุน 1

สมมติว่าคุณมีข้อมูลช่วงหนึ่งที่คุณต้องการแบ่งเนื้อหาของเซลล์ออกเป็นคอลัมน์แยกกันโดยใช้อักษรตัวใหญ่ตามภาพหน้าจอต่อไปนี้คุณมีแนวคิดที่ดีในการแก้ปัญหานี้ใน Excel หรือไม่?

แยกข้อความออกเป็นคอลัมน์แยกตามตัวพิมพ์ใหญ่พร้อมสูตร

แยกข้อความออกเป็นคอลัมน์แยกตามตัวพิมพ์ใหญ่พร้อมรหัส VBA

แยกข้อความออกเป็นคอลัมน์แยกตามตัวพิมพ์ใหญ่ด้วย Kutools for Excel


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

1. ป้อนสูตรอาร์เรย์นี้: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 คือเซลล์ที่คุณต้องการแบ่งตามตัวอักษรตัวใหญ่) ลงในเซลล์ว่างที่อยู่ติดกับข้อมูลของคุณจากนั้นกด Ctrl + Shift + Enter คีย์เข้าด้วยกันเพื่อให้ได้คำแรกดูภาพหน้าจอ:

doc แยกตามทุน 2

2. จากนั้นเลือก C2 และลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้คำแรกทั้งหมดของเซลล์ช่วงถูกแยกออกพร้อมกันดูภาพหน้าจอ:

doc แยกตามทุน 3

3. ไปที่การป้อนสูตรอื่น: = แทนที่ (A2,1, LEN (C2), "") (A2 คือเซลล์ที่คุณต้องการแยกและ C2 คือเซลล์มีคำแรกที่คุณส่งกลับ) ลงในเซลล์ D2 แล้วกด เข้าสู่ กุญแจสำคัญในการรับคำที่สองดูภาพหน้าจอ:

doc แยกตามทุน 4

4. เลือกเซลล์ D2 ลากที่จับเติมลงไปที่เซลล์เพื่อรับคำที่สองและเนื้อหาเซลล์ของช่วงถูกแบ่งออกเป็นสองคอลัมน์โดยใช้อักษรตัวใหญ่ดูภาพหน้าจอ:

doc แยกตามทุน 5


สูตรข้างต้นจะนำไปใช้กับค่าของเซลล์ที่มีคำสองคำเท่านั้นหากมีหลายคำในเซลล์ที่จำเป็นต้องแยกคุณสามารถเพิ่มช่องว่างก่อนตัวพิมพ์ใหญ่จากนั้นใช้ข้อความกับคอลัมน์เพื่อแบ่งเนื้อหาของเซลล์ออกเป็น แยกคอลัมน์ตามช่องว่าง

ขั้นแรกให้ใช้รหัส VBA เพื่อเพิ่มช่องว่างก่อนตัวอักษรตัวใหญ่เพื่อแยกคำ

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: แทรกช่องว่างก่อนอักษรตัวใหญ่แต่ละตัวในเซลล์

Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
    Dim I As Integer
    SplitWords = Left(Str, 1)
    For I = 2 To Len(Trim(Str))
        If (Asc(Mid(Str, I, 1)) > 64) And _
           (Asc(Mid(Str, I, 1)) < 91) And _
           (Mid(Str, I - 1, 1) <> " ") Then _
            SplitWords = SplitWords & " "
        SplitWords = SplitWords & Mid(Str, I, 1)
    Next
End Function

3. บันทึกและปิดรหัสนี้กลับไปที่แผ่นงานโปรดป้อนสูตรนี้: = คำแยก (A2) ลงในเซลล์ว่างที่อยู่ติดกับข้อมูลของคุณดูภาพหน้าจอ:

doc แยกตามทุน 6

4. จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้และช่องว่างถูกแทรกไว้ก่อนอักษรตัวใหญ่แต่ละตัวเพื่อแยกเนื้อหาของเซลล์ดูภาพหน้าจอ:

doc แยกตามทุน 7

5. จากนั้นคุณควรคัดลอกและวางเซลล์สูตรเหล่านี้เป็นค่าเพื่อลบสูตรในที่อื่นหรือช่วงเดิม

doc แยกตามทุน 8

ประการที่สองใช้คุณลักษณะ Text to Column เพื่อแบ่งเนื้อหาของเซลล์ออกเป็นคอลัมน์แยกตามช่องว่าง

6. เลือกค่าเซลล์ที่คุณแทรกช่องว่างแล้วคลิก ข้อมูล > ข้อความเป็นคอลัมน์ในขั้นตอนที่ 1 ของ แปลงตัวช่วยสร้างข้อความเป็นคอลัมน์ให้เลือก ที่คั่น ตัวเลือกดูภาพหน้าจอ:

doc แยกตามทุน 9

7. จากนั้นคลิก ถัดไป ในขั้นตอนที่ 2 ของตัวช่วยสร้างตรวจสอบ ช่องว่าง ภายใต้ ตัวคั่น ส่วนดูภาพหน้าจอ:

doc แยกตามทุน 10

8. ไปที่การคลิก ถัดไป ในขั้นตอนที่ 3 ของตัวช่วยสร้างให้เลือก General ภายใต้ รูปแบบข้อมูลคอลัมน์จากนั้นเลือกเซลล์ที่คุณต้องการใส่ค่าแยกโดยคลิก doc แยกตามทุน 12 ปุ่มดูภาพหน้าจอ:

doc แยกตามทุน 11

9. ในที่สุดคลิก เสร็จสิ้น เนื้อหาของเซลล์ถูกแบ่งออกเป็นหลายคอลัมน์ตามภาพหน้าจอต่อไปนี้:

doc แยกตามทุน 13


ถ้าคุณมี Kutools สำหรับ Excelการรวมไฟล์ เพิ่มข้อความ และ แยกเซลล์ คุณสามารถจัดการกับงานนี้ได้อย่างง่ายดายและสะดวกสบายโปรดทำดังนี้:

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน.

1. เลือกข้อมูลเดิมที่คุณต้องการแยก

2. จากนั้นคลิก Kutoolsข้อความ > เพิ่มข้อความดูภาพหน้าจอ:

3. ใน เพิ่มข้อความ โปรดพิมพ์ Space bar หนึ่งครั้งหรือตัวคั่นอื่น ๆ ที่คุณต้องการลงในไฟล์ ข้อความ จากนั้นเลือก ตัวอักษร 1 st เป็นตัวพิมพ์ใหญ่ จาก เพิ่มเฉพาะ ส่วนดูภาพหน้าจอ:

doc แยกตามทุน 15

4. จากนั้นคลิก Ok ปุ่มและมีการเพิ่มช่องว่างก่อนอักษรตัวใหญ่แต่ละตัวดูภาพหน้าจอ:

doc แยกตามทุน 16

5. จากนั้นคุณสามารถใช้ไฟล์ แยกเซลล์ ประโยชน์ของ Kutools สำหรับ Excel เพื่อแบ่งค่าของเซลล์ตามช่องว่างโดยคงช่วงข้อมูลที่เลือกไว้แล้วคลิก Kutools > ผสานและแยก > แยกเซลล์ดูภาพหน้าจอ:

6. ใน แยกเซลล์ ใหเลือก แยกเป็นคอลัมน์ ภายใต้ ชนิดภาพเขียน และตรวจสอบ ช่องว่าง หรือตัวคั่นอื่น ๆ ที่คุณเพิ่มในขั้นตอนที่ 3 ดูภาพหน้าจอ:

doc แยกตามทุน 18 18

7. จากนั้นคลิก Okและกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่จะใส่ข้อมูลแยกดูภาพหน้าจอ:

doc แยกตามทุน 19

8. ในที่สุดคลิก OK และคุณจะได้ผลลัพธ์ที่คุณต้องการดูภาพหน้าจอ:

doc แยกตามทุน 20

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola! Llevo todo el dia tratando de divir palabras juntas en celdas en excel, he dado con esta pagina, pero el código VBA no me funciona, tengo entendido que =Splitwords ya no esta disponible.
Es posible que puedas ayudarme?
This comment was minimized by the moderator on the site
Formula/function works as it should now, a later amendment (#25891) fixed it - thank you so much
This comment was minimized by the moderator on the site
DanMorgan = Dan
MollieClark = Mollie
Jade, Jam, Ryan, Dummy (not his real name),Jess,Cass, Jenni and Jack all come through as Jade,Jam, etc

using Excel 2013 (company supplied)
This comment was minimized by the moderator on the site
I need some help splitting a cell. I can do it by lower case next to upper case. But if the splitting word is one capitol letter, followed by another capitol letter it won't work. Also, if there are Roman numerals involved there are problems. If there is a word, such as "McDonald" or "MacDonald" there are problems. Can you help?
This comment was minimized by the moderator on the site
This doesn't work for two of the same capital letters
This comment was minimized by the moderator on the site
Hello,
If the two words are same words, please change the first array formula to the follows:
=LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),RIGHT(A2, LEN(A2)-1)&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),1))

Please remember to press Ctrl + Shift + Enter keys together.

Hope it can help you!
This comment was minimized by the moderator on the site
Thanks for the content it really worked
This comment was minimized by the moderator on the site
Your formula fail if name is like this: JhonJhon MarkMark
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations