Hur konverterar jag textsträng till rätt fall med undantag i Excel?

I Excel kan du använda korrekt funktion för att enkelt konvertera textsträngar till rätt fall, men ibland måste du utesluta några specifika ord när du konverterar textsträngarna till rätt fall enligt följande skärmdump. Den här artikeln kommer jag att prata om några snabba tricks för att lösa detta jobb i Excel.

Konvertera textsträngar till rätt fall med undantag med hjälp av formeln

Konvertera textsträngar till rätt fall med undantag med hjälp av VBA-kod

Konvertera textsträngar till rätt fall med undantag med hjälp av formeln

Kan vara följande formel kan hjälpa dig att hantera den här uppgiften snabbt, gör så här:

Ange denna formel:

= ÖVRE (VÄNSTER (A2)) & MIDDEL (TRIM (SUBSTITUTE (SUBSTITUTE (SUBSTITUTE (SUBSTITUTE ((") & RÄTT (A2) &" "," Of "," of ")," A "," a ")," Is "," is ")," Usa "," USA ")), 2, LEN (A2)) in i en cell där du vill få resultatet, och dra sedan fyllningshandtaget för att fylla denna formel, och textsträngarna har konverterats till rätt fall men specifika undantag, se skärmdump:

Anmärkningar: I ovanstående formel, A2 är den cell du vill konvertera, "Av", "A", "Är", "USA" är de normala ordstäverna efter konvertering, “Av”, “a”, “är”, “USA” är de ord du vill utesluta från rätt fall. Du kan ändra dem efter behov eller lägga till andra ord med SUBSTITUTE-funktionen.

Konvertera textsträngar till rätt fall med undantag med hjälp av VBA-kod

Om ovanstående formel är något svår att förstå och ändra till ditt behov, här kan du också tillämpa en VBA-kod för att slutföra denna uppgift. Gör med följande steg en efter en.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: konvertera textsträngar till rätt fall med undantag:

Sub CellsValueChange()
'Updateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
    If xPRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            If Not IsNumeric(xRgVal) Then
                xRgVal = CorrectCase(xRgVal, xPRg)
                xDRg.Offset(KK).Value = xRgVal
            End If
            KK = KK + 1
        Next
    Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
    Dim xArrWords As Variant
    Dim I As Integer
    Dim xPointer As Integer
    Dim xVal As String
    xPointer = 1
    xVal = xRgVal
    xArrWords = WordsOf(xRgVal)
    For I = 0 To UBound(xArrWords)
        xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
        Debug.Print xPointer
        Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
    Next I
    CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
    Dim xDelimiters As Variant
    Dim xArrRtn As Variant
    xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
    For Each xEachDelimiter In xDelimiters
        xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
    Next xEachDelimiter
    xArrRtn = Split(Trim(xRgVal), " ")
    WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
    With xERg
        If IsError(Application.Match(xArrWord, .Cells, 0)) Then
            CorrectCaseOneWord = Application.Proper(xArrWord)
        Else
            CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
        End If
    End With
End Function

3. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta visas för att påminna dig om att välja de ursprungliga cellerna du vill konvertera, se skärmdump:

4. Och klicka sedan på OK, välj cellerna där du vill mata ut resultaten i rutan som visas, se skärmdump:

5. Fortsätt klicka OK, och i popup-dialogrutan väljer du texterna du vill utesluta, se skärmdump:

6. Och klicka sedan på OK för att avsluta dialogerna och alla textsträngar har konverterats till rätt fall men exkluderar de angivna orden, se skärmdump: