在 Excel 中，您或许希望将单元格中的数字替换为“x”，以屏蔽敏感数据、统一格式、避免参与计算，或表示缺失/不完整的值。本文将通过一段简洁的 VBA 代码，助您快速轻松地实现这一操作。

使用 VBA 代码将单元格中的所有数字替换为“x”

使用 VBA 代码将单元格中的所有数字替换为“x”

以下 VBA 代码可助您在 Excel 中将所选单元格内的所有数字替换为“x”，请按以下步骤操作：

1. 选择要将其中数字替换为 x 的单元格，然后按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，单击插入> 模块，然后将下方的 VBA 代码复制到代码窗口中。

VBA 代码：在 Excel 中将所有数字选择区域替换为“x”

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，如下图所示。