Как заменить все числа в ячейках на "x" в Excel?

В Excel вам может понадобиться заменить числа в ячейках на "x", чтобы скрыть конфиденциальные данные, стандартизировать форматирование, предотвратить вычисления или указать отсутствующие/неполные значения. В этой статье мы расскажем о простом решении с использованием кода VBA для быстрого и легкого выполнения этой задачи.

Замена всех чисел в ячейках на "x" с помощью кода VBA

Замена всех чисел в ячейках на "x" с помощью кода VBA

Следующий код VBA поможет вам заменить все числа в выбранных ячейках на "x" в Excel. Пожалуйста, следуйте инструкциям ниже.

1. Выберите ячейки, содержащие числа, которые вы хотите заменить на x, а затем нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте приведенный ниже код VBA в окно Кода.

Код VBA: Замена всех чисел в выбранном диапазоне на "x" в 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. Нажмите клавишу F5 для запуска кода. После этого вы увидите, что все числа в выбранных ячейках заменены на x, как показано на скриншоте ниже.

Связанные статьи:

• Как найти и заменить все пустые ячейки определенным числом или текстом в Excel?
• Как заменить запятые на новые строки (Alt + Enter) в ячейках в Excel?
• Как заменить разрывы строк на br в Excel?