Comment convertir html en texte dans des cellules dans Excel?

Comme illustré ci-dessous, si le nombre de balises html existant dans les cellules de votre feuille de calcul, comment pouvez-vous les convertir en texte brut dans Excel? Cet article vous montrera deux méthodes pour supprimer toutes les balises html des cellules dans Excel.

Convertir du HTML en texte dans les cellules sélectionnées avec la fonction Rechercher et remplacer
Convertir du HTML en texte dans toute la feuille de calcul avec VBA

Convertir le HTML en texte dans les cellules avec la fonction Rechercher et remplacer

Vous pouvez convertir tous les html en textes dans des cellules avec le Rechercher et remplacer fonction dans Excel. Veuillez faire comme suit.

1. Sélectionnez les cellules que vous allez convertir tous les html en textes et appuyez sur le bouton Ctrl + F clés pour ouvrir le Rechercher et remplacer boite de dialogue.

2. dans le Rechercher et remplacer boîte de dialogue, accédez à remplacer onglet, entrez <*> into the Trouvez ce que boîte, gardez la Remplacez-le par boîte vide et cliquez sur le Remplacer tout bouton. Voir la capture d'écran:

3. Puis un Microsoft Excel boîte de dialogue apparaît pour vous dire combien de balises html ont été remplacées, cliquez sur le OK et fermez le Rechercher et remplacer boite de dialogue.

Ensuite, vous pouvez voir que toutes les balises html sont supprimées des cellules sélectionnées, comme illustré ci-dessous.

Convertir du HTML en texte dans toute la feuille de calcul avec VBA

En outre, vous pouvez convertir tout le HTML en texte dans la feuille de calcul entière en même temps avec le code VBA ci-dessous.

1. Ouvrez la feuille de calcul contenant du code HTML que vous allez convertir en texte, puis appuyez sur le bouton autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez ci-dessous le code VBA dans la fenêtre Module.

Code VBA: Convertissez le HTML en texte dans toute la feuille de calcul

Sub RemoveHTMLTags()
'Update by Extendoffice 20180703
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xRegEx As RegExp
    Dim xMatch As Match
    Dim xMatches As MatchCollection
    Set xRegEx = New RegExp
    Application.EnableEvents = False
    Set xRg = Cells.SpecialCells(xlCellTypeConstants)
    With xRegEx
        .Global = True
        .Pattern = "<(""[^""]*""|'[^']*'|[^'"">])*>"
    End With
    For Each xCell In xRg
        xStr = xCell.Value
            Set xMatches = xRegEx.Execute(xCell.Text)
            For Each xMatch In xMatches
                xStr = Replace(xStr, xMatch.Value, "")
            Next
        xCell.Value = xStr
    Next
   Application.EnableEvents = True
End Sub

3. Toujours dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer Outils > Références, vérifier la Expression régulière Microsoft VBScript 5.5 option dans la Références-VBAProject boîte de dialogue, puis cliquez sur le OK .

4. appuie sur le F5 ou cliquez sur le bouton Exécuter pour exécuter le code.

Ensuite, toutes les balises html sont immédiatement supprimées de la feuille de calcul entière.

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat...

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!