Cum să găsiți și să înlocuiți textul, apoi să păstrați formatarea în Excel?
 |
 |
Găsiți și înlocuiți conservarea formatării cu codul Macro
Găsiți și înlocuiți conservarea formatării cu codul Macro
Nu există alte metode, dar codul macro vă poate ajuta să găsiți și să înlocuiți textul și să păstrați formatarea.
1. presa Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicație fereastră.
2. clic Insera > Moduleși lipiți codul de mai jos în script.
VBA: Găsiți și înlocuiți conservarea formatării
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. presa F5 , apare o fereastră de dialog pentru a selecta un interval de găsit și înlocuit, vezi captura de ecran:
4. Faceți clic pe OK, iar șirul specific din celula selectată se înlocuiește cu altul și păstrează formatarea.
varful: În cod, KK este șirul pe care doriți să îl găsiți și Kutools este șirul cu care doriți să înlocuiți, le puteți schimba după cum aveți nevoie.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
