Hogyan helyettesítheti az összes cellában lévő számot X-szel az Excelben?

Amint az alábbi képernyőképen látható, hogyan lehet az cellákban lévő összes számot x-ekkel helyettesíteni az Excelben? Az ebben a cikkben szereplő módszer segít megoldani a problémát.

Cserélje ki a cellákban lévő összes számot V-kódú x-re

Cserélje ki a cellákban lévő összes számot V-kódú x-re

A következő VBA-kód segíthet a kiválasztott cellák összes számának az Excel-ben levő X-ekre cserélésében. Kérjük, tegye a következőket.

1. Jelölje ki az x helyettesíteni kívánt számokat tartalmazó cellákat, majd nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a Kód ablakba.

VBA kód: Cserélje ki az összes számot a kiválasztott tartományban x-ekre az Excelben

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. megnyomni a F5 gombot a kód futtatásához. Ezután láthatja, hogy a kiválasztott cellákban lévő összes szám helyettesítve van x-szel, az alábbi képernyőkép szerint.

Kapcsolódó cikkek:

• Hogyan lehet megtalálni és helyettesíteni az összes üres cellát bizonyos számmal vagy szöveggel az Excelben?
• Hogyan helyettesítsük a vesszőket új sorokkal (Alt + Enter) az Excel celláiban?
• Hogyan lehet az Excel-ben a sortöréseket br-re cserélni?