Wie finde und ersetze ich Text und behalte die Formatierung in Excel bei?
Suchen und ersetzen Sie die Formatierung durch Makrocode
Suchen und ersetzen Sie die Formatierung durch Makrocode
Es gibt keine anderen Methoden, aber Makrocode kann Ihnen helfen, Text zu finden und zu ersetzen und die Formatierung beizubehalten.
1. Drücken Sie Alt + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Anwendung Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das Skript ein.
VBA: Suchen und Ersetzen der Formatierung beibehalten
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
3. Drücken Sie F5 Mit der Taste wird ein Dialogfeld angezeigt, in dem Sie einen Bereich zum Suchen und Ersetzen auswählen können (siehe Abbildung):
4. Klicken Sie auf OK. Die bestimmte Zeichenfolge in der ausgewählten Zelle wird durch eine andere ersetzt und die Formatierung beibehalten.
Tipp: Im Code, KK ist die Zeichenfolge, die Sie suchen möchten, und Kutoolen Ist die Zeichenfolge, durch die Sie ersetzen möchten, können Sie sie nach Bedarf ändern.
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!