如何在 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？