So markieren Sie doppelte Text / Wörter in Excel Cell

Dieses Tutorial zeigt, wie VBA verwendet wird, um doppelte Wörter oder Phrasen in einer Excel -Zelle hervorzuheben. Während das integrierte bedingte Formatierung von Excel umfangreiche doppelte Hervorhebungsoptionen bietet, arbeitet es auf Zellebene. Dieses Makro ermöglicht das Hervorheben spezifischer Text in einer Zelle.

Die bedingte Formatierung von Excels zeichnet sich auf verschiedene Arten aus - ohne das erste Auftreten, über einzelne oder mehrere Spalten, aufeinanderfolgende Duplikate oder ganze Zeilen basierend auf einer Schlüsselspalte. Es fehlt jedoch die Fähigkeit, doppelte Textsegmente in einer einzelnen Zelle hervorzuheben. Diese Einschränkung erfordert die Verwendung von Makros.

Dieser Leitfaden enthält einen fertigen VBA-Code und -anweisungen, selbst für diejenigen ohne vorherige VBA-Erfahrung.

Hervorhebung doppelter Wörter (Fall-unempfindlich)

Dieses Makro zeigt doppelte Wörter in einer Zelle unter Verwendung einer roten Schrift, unabhängig von der Kapitalisierung. "Orange", "Orange" und "Orange" werden als identisch behandelt.

VBA-Code (Fall-unempfindlich):

 Öffentlicher Sub -HighlightDupescaseinemsitiv ()
  Dunkelne Zelle als Reichweite
  Dunkler Trennzeichen als Zeichenfolge
  Delimiter = inputBox ("Geben Sie den Trennzeichen ein, das die Werte (z. B. ',')", "Trennzeichen", ",", ") eingeben.
  Für jede Zelle in Anwendung. Auswahl
    Rufen Sie HighlightDUpeWordinsincell an (Zelle, Trennzeichen, Falsch)
  Nächste
Ende sub

Sub lightlightDUpeWordinsincell (Zelle als Bereich, optionaler Begrenzer als String = "", optionales Casedemsitive als boolean = true)
  Dimer Text als Zeichenfolge
  Dim Words () als Zeichenfolge
  Dunkeles Wort als Zeichenfolge
  Dim WordIndex, MatchCount, PositionIntext als Ganzzahl
  Wenn Fälle, dann
    Wörter = split (cell.Value, Trennzeichen)
  Anders
    Wörter = split (lase (cell.Value), Trennzeichen)
  Ende wenn
  Für WordIndex = lBound (Wörter) bis Ubound (Wörter) - 1
    Word = Wörter (WordIndex)
    MatchCount = 0
    Für nächste WordIndex = WordIndex 1 bis Ubound (Wörter)
      Wenn Word = Words (NextWordIndex) dann
        MatchCount = MatchCount 1
      Ende wenn
    Nächste nächste WordIndex
    Wenn MatchCount> 0 dann
      text = ""
      Für Index = lBound (Wörter) bis Ubound (Wörter)
        text = text & wörter (index)
        If (wörter (index) = wort) dann
          Cell.characters (len (text) - len (word) 1, len (word)). Font.color = vbred
        Ende wenn
        text = text & trennerer
      Nächste
    Ende wenn
  Nächste WordIndex
Ende sub

Hervorhebung doppelter Text (Fallempfindlichkeit) hervorheben

Diese Version unterscheidet zwischen Groß- und Kleinbuchstaben. "1-aa", "1-aa" und "1-aa" gelten als unterschiedlich.

VBA-Code (Fallempfindlichkeit):

(Der Code ist nahezu identisch mit der von Fall unempfindlichen Version; nur der CaseSensitive in der HighlightDupeWordsInCell -Aufruf und das Fehlen von LCase in den words = Split(...) unterscheiden sich. Daher ist er für die Breadity-Verschlüsselung ausgelassen, um Redundanz zu vermeiden.) Der Schlüsselunterschied liegt bei der True des CaseSensitive Parameters, wenn er HighlightDupeWordsInCell nennt.

Verwenden der Makros

1. Fügen Sie den Code hinzu: Öffnen Sie Ihr Excel -Arbeitsbuch, drücken Sie Alt F11, um den VBA -Editor zu öffnen, ein Modul einfügen und den Code einfügen. Speichern Sie als makro-fähiger Arbeitsmappe (.xlsm).
2. Führen Sie das Makro aus: Wählen Sie die Zellen aus, drücken Sie ALT F8, wählen Sie das Makro (Fallempfindlichkeit oder Fall nichtempfindlich) und klicken Sie auf "Run".
3. Geben Sie Trennzeichen an: Die Makroaufforderungen für einen Trennzeichen (z. B. ","). Geben Sie die Charaktere ein, die Wörter in Ihren Zellen trennen.

Die doppelten Textsegmente werden rot hervorgehoben. Um Duplikate in einer Zelle zu entfernen, sollten Sie ein dediziertes Werkzeug wie die Funktion "Duplikates Substrings entfernen" von einer Reihe von Excel -Dienstprogrammen entfernen.

Anpassen des Codes

• MODUL -Platzierung: Beide Makros nennen die HighlightDupeWordsInCell -Unterroutine. Stellen Sie sicher, dass sich diese Unterroutine im selben Modul befindet.
• Abgrenzer: Ändern Sie den Standard -Trennzeichen in der InputBox -Zeile nach Bedarf.
• Farbe: Ändern Sie vbRed in eine andere VBA -Farbkonstante (z. B. vbGreen , vbBlue ), um die Highlight -Farbe zu ändern.

Diese detaillierte Anleitung ermöglicht es Ihnen, den doppelten Text in Excel -Zellen mit VBA effizient hervorzuheben. Denken Sie daran, die bereitgestellte Beispielarbeitsbuch für eine praktische Demonstration herunterzuladen.

Das obige ist der detaillierte Inhalt vonSo markieren Sie doppelte Text / Wörter in Excel Cell. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!