Jak nahradit všechna čísla v buňkách písmeny X v aplikaci Excel?
Jak je ukázáno níže, jak nahradit všechna čísla v buňkách písmeny xv aplikaci Excel? Metoda v tomto článku vám pomůže problém vyřešit.
Nahraďte všechna čísla v buňkách písmeny x kódem VBA
Nahraďte všechna čísla v buňkách písmeny x kódem VBA
Následující kód VBA vám pomůže nahradit všechna čísla ve vybraných buňkách písmeny X v aplikaci Excel. Postupujte prosím následovně.
1. Vyberte buňky obsahující čísla, která nahradíte x, a poté stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna Kód.
Kód VBA: Nahraďte všechna čísla ve vybraném rozsahu písmeny x v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu. Poté můžete vidět, že všechna čísla ve vybraných buňkách jsou nahrazena x, jak je uvedeno níže.
Související články:
- Jak najít a nahradit všechny prázdné buňky určitým číslem nebo textem v aplikaci Excel?
- Jak nahradit čárky novými řádky (Alt + Enter) v buňkách v aplikaci Excel?
- Jak nahradit konce řádků br v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!