Comment trouver et remplacer une partie d'une cellule avec du texte formaté

Dans une feuille de calcul Excel 2007 je veux rechercher-remplacer à la mise en évidence de la partie du texte dans une cellule. L'utilisation de rechercher-remplacer reformate l'ensemble de la cellule.

Par exemple, si la cellule contient:

Pellentesque vel massa sit amet magna eleifend aiguille placerat. Pellentesque
dictum, nibh vitae tincidunt placerat, elit libero tristique tellus,
vel imperdiet nulla savoir plus id diam. Mauris porta blandit vestibulaire.

Je veux trouver "Pellentesque" et la remplacer par Pellentesque.

Cela peut-il être fait sans VBE ou des formules?

Je ne pense pas qu'il peut être fait sans vba
Je pense que vous aurez besoin d'utiliser VBA - voir HERE pour le code pour le faire.
merci pour la mise en forme. Le site demande toujours pour le titre comme une question...pourquoi avez-vous changé d'un énoncé?

OriginalL'auteur Sam | 2013-06-06

Peut-être que c'costume (assurez-vous de sélectionner plus de cellules que nécessaire avant l'exécution d'ou cela pourrait prendre un certain temps):

Sub FormatSelection()

Dim cl As Range
Dim SearchText As String
Dim StartPos As Integer
Dim EndPos As Integer
Dim TestPos As Integer
Dim TotalLen As Integer

On Error Resume Next
Application.DisplayAlerts = False
SearchText = Application.InputBox _
(Prompt:="Enter string.", Title:="Which string to format?", Type:=2)
On Error GoTo 0
Application.DisplayAlerts = True
If SearchText = "" Then
Exit Sub
Else
For Each cl In Selection
  TotalLen = Len(SearchText)
  StartPos = InStr(cl, SearchText)
  TestPos = 0
  Do While StartPos > TestPos
    With cl.Characters(StartPos, TotalLen).Font
      .FontStyle = "Bold"
      .ColorIndex = 3
    End With
    EndPos = StartPos + TotalLen
    TestPos = TestPos + EndPos
    StartPos = InStr(TestPos, cl, SearchText, vbTextCompare)
  Loop
Next cl
End If
End Sub

Devrait encourager et de couleur Rouge. Les changements ne sont pas remplacés si la macro est nouveau. En commentaire .ColorIndex = 3 si pas de changer de couleur.

(@Skip Intro du pointeur de SO15438731 question de l'amendement et du code de SO10455366 réponse.)

+ 1 Joli 🙂

OriginalL'auteur pnuts

2

C'est ce qu'a très bien fonctionné pour moi:
1. Des cellules sélectionnées dans Excel (j'ai choisi 1266 à un moment--ne sais pas si il n'y a vraiment aucune limite)
2. Cliqué sur COPIE
3. Ouvre un fichier word vierge et cliqué sur la PÂTE
4. Utilisé CTRL+H pour obtenir & Remplacer
5. Saisi les caractères et les caractères à remplacer, ajouter la mise en forme souhaitée et sélectionné Remplacer Tous (le processus a pris moins de 2 secondes)
6. Sélectionné Modifier-Sélectionner-Sélectionner Tout dans le fichier Word, puis a occupé la touche shift et le bouton gauche de la flèche (je pense ne pas le faire serait d'ajouter une ligne à la prochaine opération)
7. Rentra dans Excel, et, dans un de rechange, de la Pâte de Garder la mise en forme Source option
Qui a mis exactement ce que je voulais dans Excel. À partir de là, je pouvais le déplacer là où je le voulais.

et avec la Regex dans Word ... support.office.com/en-us/article/...

OriginalL'auteur Charlie Webster
1

Absolue de la FAÇON la plus SIMPLE de le faire
avec la norme Rechercher & Remplacer CTRL+F Commande
est juste "temporaire" add-in "Calibri" Police de Caractère • aka. "black bullet point"

comme ceci: • échantillon •

à partir de l'Onglet Insertion --> Symboles --> Calibri Police --> et à la fin)

Ainsi, vous pouvez vous rendre beaucoup plus facile pour les yeux
à lire sur le nombre de lignes de données excel,

facilement et aussi plus tard, l'enlever de nouveau à l'original
tout simplement avec de nouveau un Rechercher & Remplacer inversée.

Espère que cela aide quelqu'un, assurez-vous que cela a aidé à mes yeux à balayage plus rapide.

ANCIEN RÉPONSE

la simple non-programmation façon de le faire est:
1. collez le texte dans MS Word
2. Puis exécutez le Trouver & Remplacer (CTRL+F) (avec des modifications de mise en forme en bas à gauche bouton "Plus > >" et puis "Format" à votre besoin de sur mesure) - qui seront ensuite faire toutes les modifications à la perfection...
3. et puis plutôt que de faire un collage SPÉCIAL dans Excel (via l'Onglet Accueil --> Coller --> collage Spécial --> Collez le code HTML (donc conserver la mise en forme) (qui peut être, et est trop gourmande en mémoire et trop lent pour rien au-dessus de 1000 lignes)
il est préférable de simplement "Enregistrer sous" à partir de Word le document en RTF, Fichier, et puis tout simplement ré-importer ce fichier dans Excel via le simple "Ouvrir un Fichier".

Excel a une assez bonne "motif répétitif de la cellule de structuration" de la reconnaissance, mais bien sûr, cette solution de contournement peut ne pas fonctionner parfaitement dans la reproduction de la cellule souhaitée de la division de tous les temps, mais il devrait maintenir la cellule afin néanmoins, la plupart du temps.

Tellement de la manière la plus simple, jusqu'à ce que Microsoft arrête la limitation de l'option "mettre en surbrillance/bold" trouvés-résultat-texte DANS une cellule, plutôt que de toujours en gras, l'ensemble de la cellule.

Salutations
Marko

OriginalL'auteur Bro_Marko

Pour faire de la recherche de l'élément de cas agnostique, vous pouvez utiliser:

Sub FormatSelection()

Dim cl As Range
Dim SearchText As String
Dim StartPos As Integer
Dim EndPos As Integer
Dim TestPos As Integer
Dim TotalLen As Integer

On Error Resume Next
Application.DisplayAlerts = False
SearchText = Application.InputBox _
(Prompt:="Enter string.", Title:="Which string to format?", Type:=2)
On Error GoTo 0
Application.DisplayAlerts = True
If SearchText = "" Then
Exit Sub
Else
For Each cl In Selection
  TotalLen = Len(SearchText)
  StartPos = InStr(Ucase(cl), Ucase(SearchText))
  TestPos = 0
  Do While StartPos > TestPos
    With cl.Characters(StartPos, TotalLen).Font
      .FontStyle = "Bold"
      .ColorIndex = 3
    End With
    EndPos = StartPos + TotalLen
    TestPos = TestPos + EndPos
    StartPos = InStr(TestPos, cl, SearchText, vbTextCompare)
  Loop
Next cl
End If
End Sub

OriginalL'auteur John Lam

Vous devez vous connecter pour publier un commentaire.