Note: The other languages of the website are Google-translated. Back to English

Hvordan finder og erstatter du tekst, og bevar derefter formatering i Excel?

doc find erstatte bevar format 1
doc find erstatte bevar format 2
Find og erstat-funktionen er effektiv og nyttig, når vi skal finde en bestemt værdi og erstatte den med en anden. Men hvis der er en række celler, og nogle af cellerne indeholder forskellige formateringsværdier. I dette tilfælde bryder formateringen af ​​værdierne i celler som vist nedenfor i skærmbilledet for at finde og erstatte værdi med Find og erstat funktion, hvordan kan vi bevare formateringen af ​​værdier i hver celle, mens vi finder og udskifter i Excel?

Find og erstat konserveringsformatering med makrokode

pil blå højre boble Find og erstat konserveringsformatering med makrokode

Der er ingen andre metoder, men makrokode kan hjælpe dig med at finde og erstatte tekst og bevare formatering.

1. Trykke Alt + F11 nøgler til at åbne Microsoft Visual Basic til anvendelse vindue.

2. klik indsatte > Moduler, og indsæt koden under scriptet.

VBA: Find og udskift bevar formatering

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

 

doc find erstatte bevar format 5

3. Trykke F5 nøgle, en dialog vises, hvor du kan vælge et område, du vil finde og udskifte, se skærmbillede:
doc find erstatte bevar format 6

4. Klik på OK, og den specifikke streng i den valgte celle erstattes med anden og bevarer formateringen.
doc find erstatte bevar format 4

Tip: I koden,  KK er den streng, du vil finde, og Kutools er den streng, du vil erstatte med, kan du ændre dem efter behov.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (5)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøvede din løsning på en celle, der er over 255 tegn lang, og intet ændrer sig. Er der en løsning på denne sag?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg får syntaksfejl i VBA
Denne kommentar blev minimeret af moderatoren på webstedet
Samme spørgsmål som John Birk Jeg har brug for en løsning med celler, der har mere end 255 tegn.
Denne kommentar blev minimeret af moderatoren på webstedet
Metoden virker kun, mens tegn er mindre end 255 cifre.
Denne kommentar blev minimeret af moderatoren på webstedet
Kan du afklare, om der er en løsning, der virker i celler med mere end 255 tegn, eller er dette en begrænsning af Excel? Understøtter dit tilføjelsesmodul celler med mere end 255 tegn, der indeholder formatering?
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL