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):
Hinweis: 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:
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
