Hoe alle getallen in cellen vervangen door X's in Excel?
Zoals onderstaand screenshot laat zien, hoe vervang je alle getallen in cellen door x'en in Excel? De methode in dit artikel helpt u bij het oplossen van het probleem.
Vervang alle getallen in cellen door x'en met VBA-code
Vervang alle getallen in cellen door x'en met VBA-code
De volgende VBA-code kan u helpen alle nummers in geselecteerde cellen te vervangen door X's in Excel. Ga als volgt te werk.
1. Selecteer de cellen met getallen die u door x wilt vervangen, en druk vervolgens op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.
VBA-code: vervang alle nummers in het geselecteerde bereik door x's in 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. druk de F5 toets om de code uit te voeren. Vervolgens kunt u zien dat alle getallen in geselecteerde cellen zijn vervangen door x, zoals onderstaand screenshot wordt getoond.
Gerelateerde artikelen:
- Hoe alle lege cellen te vinden en te vervangen door een bepaald nummer of tekst in Excel?
- Hoe komma's te vervangen door nieuwe regels (Alt + Enter) in cellen in Excel?
- Hoe regelafbrekingen te vervangen door br in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!