วิธีการแยกตัวพิมพ์ใหญ่หรือคำที่เริ่มต้นด้วยอักษรตัวใหญ่จากสตริงข้อความ?

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

แยกอักษรตัวใหญ่ออกจากสตริงข้อความด้วย User Defined Function

แยกคำที่ขึ้นต้นด้วยอักษรตัวใหญ่จากสตริงข้อความด้วย User Defined Function

แยกอักษรตัวใหญ่ออกจากสตริงข้อความด้วย User Defined Function

รหัส VBA ต่อไปนี้สามารถช่วยคุณแยกเฉพาะตัวพิมพ์ใหญ่จากเซลล์ได้โปรดดำเนินการดังนี้:

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

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

รหัส VBA: แยกเฉพาะตัวพิมพ์ใหญ่จากสตริงข้อความ:

Function ExtractCap(Txt As String) As String
'Updateby Extendoffice
    Application.Volatile
    Dim xRegEx As Object
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    xRegEx.Pattern = "[^A-Z]"
    xRegEx.Global = True
    ExtractCap = xRegEx.Replace(Txt, "")
    Set xRegEx = Nothing
End Function

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

แยกคำที่ขึ้นต้นด้วยอักษรตัวใหญ่จากสตริงข้อความด้วย User Defined Function

หากคุณต้องการแยกคำที่ขึ้นต้นด้วยอักษรตัวใหญ่จากสตริงข้อความรหัส VBA ต่อไปนี้อาจช่วยคุณได้

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

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

รหัส VBA: แยกคำที่เริ่มต้นด้วยอักษรตัวใหญ่:

Function StrExtract(Str As String) As String
'Updateby Extendoffice
    Application.Volatile
    Dim xStrList As Variant
    Dim xRet As String
    Dim I As Long
    If Len(Str) = 0 Then Exit Function
    xStrList = Split(Str, " ")
    If UBound(xStrList) >= 0 Then
        For I = 0 To UBound(xStrList)
            If xStrList(I) = StrConv(xStrList(I), vbProperCase) Then
                xRet = xRet & xStrList(I) & " "
            End If
        Next
        StrExtract = Left(xRet, Len(xRet) - 1)
    End If
End Function

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