Cum se înlocuiesc toate numerele din celule cu X-uri în Excel?
După cum se arată mai jos, cum se înlocuiește toate numerele din celule cu x-uri în Excel? Metoda din acest articol vă va ajuta să rezolvați problema.
Înlocuiți toate numerele din celule cu x-uri cu cod VBA
Înlocuiți toate numerele din celule cu x-uri cu cod VBA
Următorul cod VBA vă poate ajuta să înlocuiți toate numerele din celulele selectate cu X-uri în Excel. Vă rugăm să faceți următoarele.
1. Selectați celulele care conțin numere pe care le veți înlocui cu x, apoi apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra Cod.
Cod VBA: Înlocuiți toate numerele din intervalul selectat cu x-uri în 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. apasă pe F5 tasta pentru a rula codul. Apoi, puteți vedea că toate numerele din celulele selectate sunt înlocuite cu x așa cum se arată mai jos.
Legate de articole:
- Cum să găsiți și să înlocuiți toate celulele goale cu un anumit număr sau text în Excel?
- Cum se înlocuiesc virgulele cu linii noi (Alt + Enter) în celulele din Excel?
- Cum se înlocuiesc întreruperile de linie cu br în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!