Come trovare e sostituire rapidamente il carattere con l'apice in Excel?
Trova e sostituisci con apice tramite la funzione Trova e sostituisci
Trova e sostituisci con apice di VBA
Trova e sostituisci con apice tramite la funzione Trova e sostituisci
In realtà, puoi usare Trova e sostituisci per trovare il testo e quindi sostituirlo con il formato apice.
1. Selezionare l'intervallo per il quale si desidera trovare e sostituire il lavoro, quindi premere Ctrl + H per aprire il Trova e sostituisci dialogo.
2. Nel Trova e sostituisci finestra di dialogo, fare clic sostituire scheda, quindi inserisci il testo che desideri trovare nel file Trova quello che casella di testo. Vedi screenshot:
3. Quindi vai a Sostituire con casella di testo, inserisci il testo che desideri sostituire, prendi nota, tieni premuto altro tasto e quindi premere 0179 tasti sul Tabellone numerico per inserire il numero in apice 3. Vedi screenshot:
4. Clic Sostituisci tutto. E viene visualizzata una finestra di dialogo per ricordarti quante sostituzioni sono state effettuate. Vedi screenshot:
Mancia: Ma con questo metodo, puoi solo apice numero 2 premendo 0178 e 3 da 0179.
Trova e sostituisci con apice di VBA
Con la funzione Trova e sostituisci, è possibile sostituire solo il numero con l'apice. Se si desidera sostituire la lettera con l'apice come mostrato nell'immagine sottostante, è possibile applicare il codice VBA per risolverlo.
1. Stampa Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla sotto il codice VBA nello script.
VBA: trova e sostituisci con il formato apice
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. Stampa F5 per eseguire il codice e viene visualizzata una finestra di dialogo per ricordarti di selezionare un intervallo. Vedi screenshot:
4. Clic OK, il carattere specifico nella stringa specifica è stato convertito in formato apice nella selezione. Vedi screenshot:
Consiglio: nel codice, "YL3"È la stringa da cui vuoi trovare, e (1, 1) indica di convertire il primo carattere 1 della stringa, se vuoi convertire i primi due caratteri, puoi cambiarlo come (1, 2), se vuoi convertire 1 carattere dal secondo carattere della stringa, puoi cambiarlo come ( 2, 1).
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!