Comment trouver et remplacer rapidement un caractère par un exposant dans Excel?
Rechercher et remplacer par un exposant par la fonction Rechercher et remplacer
Rechercher et remplacer par un exposant par VBA
Rechercher et remplacer par un exposant par la fonction Rechercher et remplacer
En fait, vous pouvez utiliser Rechercher et remplacer pour rechercher le texte, puis le remplacer par un format exposant.
1. Sélectionnez la plage pour laquelle vous souhaitez rechercher et remplacer le travail, puis appuyez sur Ctrl + H ouvrir le Rechercher et remplacer dialogue.
2. dans le Rechercher et remplacer dialogue, cliquez sur remplacer onglet, puis entrez le texte que vous souhaitez rechercher dans le Trouvez ce que zone de texte. Voir la capture d'écran:
3. Allez ensuite à Remplacez-le par zone de texte, entrez le texte que vous souhaitez remplacer, prenez note, maintenez autre touchez et appuyez sur 0179 touches sur le Tableau des numéros pour saisir le numéro en exposant 3. Voir capture d'écran:
4. Cliquez Remplacer tout. Et une boîte de dialogue apparaît pour vous rappeler combien de remplacements ont été effectués. Voir la capture d'écran:
Conseil: Mais avec cette méthode, vous ne pouvez exposer que le numéro 2 en appuyant sur 0178 et 3 par 0179.
Rechercher et remplacer par un exposant par VBA
Avec la fonction Rechercher et remplacer, seul le nombre peut être remplacé par un exposant. Si vous souhaitez remplacer la lettre par un exposant comme illustré ci-dessous, vous pouvez appliquer le code VBA pour le résoudre.
1. presse Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Moduleet collez ci-dessous le code VBA dans le script.
VBA: rechercher et remplacer par le format exposant
Sub DoConvert()
'UpdatebyExtendoffice20160705
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
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. presse F5 pour exécuter le code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner une plage. Voir la capture d'écran:
4. Cliquez OK, le caractère spécifique d'une chaîne spécifique a été converti au format exposant dans la sélection. Voir la capture d'écran:
Conseil : dans le code, "YL3"Est la chaîne à partir de laquelle vous souhaitez rechercher, et (1, 1) indique de convertir le premier caractère de la chaîne, si vous voulez convertir les deux premiers caractères, vous pouvez le changer comme (1, 1), si vous voulez convertir 2 caractère du deuxième caractère de la chaîne, vous pouvez le changer comme ( 1, 2).
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement 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!