Hvordan udskiftes alle tal i celler med X'er i Excel?
Som vist nedenstående skærmbillede, hvordan man erstatter alle tal i celler med x'er i Excel? Metoden i denne artikel hjælper dig med at løse problemet.
Erstat alle tal i celler med x'er med VBA-kode
Erstat alle tal i celler med x'er med VBA-kode
Følgende VBA-kode kan hjælpe dig med at erstatte alle numre i valgte celler med X'er i Excel. Gør som følger.
1. Vælg de celler, der indeholder tal, du vil erstatte med x, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter nedenunder VBA-kode til kodevinduet.
VBA-kode: Erstat alle tal i det valgte område med x'er i Excel
Sub ReplaceNoX()
Dim cell As Object
Dim val As String
Dim i As Integer
Dim n As String
Application.ScreenUpdating = False
For Each cell In Selection
If IsNumeric(cell.Value) Then
val = cell.Text
For i = 1 To Len(val)
n = Mid(val, i, 1)
If "0" <= n And n <= "9" Then
Mid(val, i, 1) = "x"
End If
Next
cell.Formula = val
End If
Next
Application.ScreenUpdating = True
End Sub
3. Tryk på F5 nøglen til at køre koden. Så kan du se, at alle tal i valgte celler er erstattet med x som vist nedenfor.
Relaterede artikler:
- Hvordan finder jeg og erstatter alle tomme celler med bestemt antal eller tekst i Excel?
- Hvordan udskiftes kommaer med nye linjer (Alt + Enter) i celler i Excel?
- Hvordan udskiftes linjeskift med br i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!