Jak znaleźć i zamienić tekst, a następnie zachować formatowanie w programie Excel?
 |
 |
Znajdź i zamień zachowaj formatowanie za pomocą kodu makr
Znajdź i zamień zachowaj formatowanie za pomocą kodu makr
Nie ma innych metod, ale kod makra może pomóc w znalezieniu i zamianie tekstu oraz zachowaniu formatowania.
1. naciśnij Alt + F11 klawisze, aby otworzyć Microsoft Visual Basic dla aplikacji okno.
2. kliknij wstawka > Modułi wklej poniższy kod do skryptu.
VBA: znajdź i zamień zachowaj formatowanie
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. naciśnij F5 klawisz, pojawia się okno dialogowe, w którym można wybrać zakres do znalezienia i zastąpienia, patrz zrzut ekranu:
4. Kliknij OK, a określony ciąg w wybranej komórce zostanie zastąpiony innym i zachowaj formatowanie.
Wskazówka: W kodzie KK to ciąg, który chcesz znaleźć, a Kutools to ciąg, którym chcesz zastąpić, możesz go zmienić w razie potrzeby.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
