如何在 Excel 中将单元格中的所有数字替换为“x”？

在 Excel 中，您可能希望将单元格中的数字替换为“x”，以掩盖敏感数据、标准化格式、防止计算或指示缺失/不完整的值。本文将引导您使用简单的 VBA 代码解决方案快速轻松地实现这一目标。

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

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

以下 VBA 代码可以帮助您将所选单元格中的所有数字替换为“x”。请按照以下步骤操作。

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

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

VBA 代码：将选定区域中的所有数字替换为“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，如下截图所示。

相关文章：

• 如何在 Excel 中查找并用特定数字或文本替换所有空白单元格？
• 如何在 Excel 单元格中将逗号替换为换行符（Alt + Enter）？
• 如何在 Excel 中将换行符替换为 br？