Note: The other languages of the website are Google-translated. Back to English

วิธีแบ่งข้อความออกเป็นคอลัมน์แยกตามตัวพิมพ์ใหญ่ใน 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 สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (7)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สูตรของคุณล้มเหลวหากชื่อเป็นแบบนี้: JhonJhon MarkMark
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับเนื้อหาที่ได้ผลจริงๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้ไม่ได้กับตัวพิมพ์ใหญ่สองตัวเดียวกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
หากทั้งสองคำเป็นคำเดียวกัน โปรดเปลี่ยนสูตรอาร์เรย์แรกเป็นดังนี้:
=LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),RIGHT(A2, LEN(A2)-1)&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),1))

อย่าลืมกด Ctrl + Shift + Enter คีย์พร้อมกัน

หวังว่ามันจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการความช่วยเหลือในการแยกเซลล์ ฉันทำได้โดยตัวพิมพ์เล็กถัดจากตัวพิมพ์ใหญ่ แต่ถ้าการแยกคำเป็นอักษรตัวพิมพ์ใหญ่ ตามด้วยอักษรตัวพิมพ์ใหญ่อีกตัวจะไม่ทำงาน นอกจากนี้ หากมีเลขโรมันเกี่ยวข้องก็มีปัญหา หากมีคำเช่น "McDonald" หรือ "MacDonald" แสดงว่ามีปัญหา คุณช่วยได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แดน มอร์แกน = แดน
มอลลี่คลาร์ก = มอลลี่
เจด, แจม, ไรอัน, ดัมมี่ (ไม่ใช่ชื่อจริงของเขา), เจส, แคส, เจนนี่ และแจ็ก ต่างก็มาในชื่อ เจด, แจม ฯลฯ

ใช้ Excel 2013 (บริษัทให้มา)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สูตร/ฟังก์ชันทำงานได้ตามปกติ การแก้ไขในภายหลัง (#25891) แก้ไขแล้ว ขอบคุณมาก
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ