Wie konvertiere ich Textzeichenfolgen mit Ausnahmen in Excel in die richtige Groß- und Kleinschreibung?
In Excel können Sie die Funktion "Richtig" anwenden, um Textzeichenfolgen einfach in die richtige Groß- und Kleinschreibung zu konvertieren. Manchmal müssen Sie jedoch bestimmte Wörter ausschließen, wenn Sie die Textzeichenfolgen in die richtige Groß- und Kleinschreibung konvertieren (siehe folgenden Screenshot). In diesem Artikel werde ich über einige schnelle Tricks zum Lösen dieses Jobs in Excel sprechen.
Konvertieren Sie Textzeichenfolgen mit Ausnahmen mithilfe von VBA-Code in Groß- und Kleinschreibung
Konvertieren Sie Textzeichenfolgen mit Ausnahmen mithilfe der Formel in die richtige Groß- und Kleinschreibung
Möglicherweise kann die folgende Formel Ihnen helfen, diese Aufgabe schnell zu erledigen. Gehen Sie dazu folgendermaßen vor:
Geben Sie diese Formel ein:
= UPPER (LEFT (A2)) & MID (TRIM (SUBSTITUTE (SUBSTITUTE) (SUBSTITUTE (SUBSTITUTE ("" & PROPER (A2) & "", "Of", "of"), "A", "a"), "Is "," ist ")," USA "," USA ")), 2, LEN (A2)) in eine Zelle, in der Sie das Ergebnis erhalten möchten, und ziehen Sie dann den Füllpunkt, um diese Formel zu füllen. Die Textzeichenfolgen wurden in Groß- und Kleinschreibung konvertiert, jedoch mit bestimmten Ausnahmen (siehe Abbildung):
Note: In der obigen Formel A2 ist die Zelle, die Sie konvertieren möchten, "Von", "A", "Ist", "USA" sind die normalen Groß- und Kleinschreibung nach der Konvertierung, "Von", "a", "ist", "USA" sind die Wörter, die Sie aus dem richtigen Fall ausschließen möchten. Sie können sie nach Bedarf ändern oder mit der Funktion SUBSTITUTE andere Wörter hinzufügen.
Konvertieren Sie Textzeichenfolgen mit Ausnahmen mithilfe von VBA-Code in Groß- und Kleinschreibung
Wenn die obige Formel etwas schwer zu verstehen und an Ihre Bedürfnisse anzupassen ist, können Sie hier auch einen VBA-Code anwenden, um diese Aufgabe abzuschließen. Bitte führen Sie die folgenden Schritte nacheinander aus.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Konvertieren Sie Textzeichenfolgen mit Ausnahmen in den richtigen Fall:
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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, die ursprünglichen Zellen auszuwählen, die Sie konvertieren möchten. Siehe Screenshot:
4. Und dann klick OKWählen Sie im angezeigten Feld die Zellen aus, in denen Sie die Ergebnisse ausgeben möchten (siehe Abbildung):
5. Klicken Sie weiter OKWählen Sie im Popup-Dialogfeld die Texte aus, die Sie ausschließen möchten (siehe Abbildung):
6. Und dann klick OK Um die Dialoge zu verlassen und alle Textzeichenfolgen in die richtige Groß- und Kleinschreibung zu konvertieren, aber die angegebenen Wörter auszuschließen, siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
