Excel文字变星号怎么还原？如何恢复原文字内容？

作者：佚名|分类：EXCEL|浏览：55|发布时间：2025-03-16 23:32:25

在Excel中，有时我们会遇到文字被自动替换为星号(*)的情况，这通常是因为单元格格式被设置为“密码”或者“隐藏”。这种情况下，我们无法直接看到单元格中的原始文字内容。不过，不用担心，以下是一些方法可以帮助我们还原并恢复原文字内容。

一、使用“查找和替换”功能

1. 选中单元格区域：首先，选中包含星号的单元格区域。

2. 查找和替换：点击“开始”选项卡下的“查找和替换”按钮，或者直接按`Ctrl + H`打开查找和替换对话框。

3. 替换为：在“查找和替换”对话框中，切换到“替换”标签页。

4. 查找内容：在“查找内容”框中输入星号(*)。

5. 替换为：在“替换为”框中不输入任何内容，直接点击“全部替换”按钮。

6. 确认：Excel会弹出确认对话框，询问是否要替换所有匹配项，点击“是”即可。

二、更改单元格格式

1. 选中单元格：选中包含星号的单元格。

2. 设置格式：右键点击单元格，选择“设置单元格格式”。

3. 数字：在弹出的对话框中，选择“数字”标签页。

4. 分类选择：在“分类”列表中，选择“文本”。

5. 确定：点击“确定”按钮，单元格中的星号将被原始文字内容替换。

三、使用VBA代码

1. 打开VBA编辑器：按`Alt + F11`打开VBA编辑器。

2. 插入模块：在VBA编辑器中，右键点击“VBAProject（你的工作簿名称）”，选择“插入” -> “模块”。

3. 编写代码：在打开的模块中，粘贴以下代码：

```vba

Sub UnhideCells()

Dim ws As Worksheet

Set ws = ActiveSheet

Dim cell As Range

For Each cell In ws.UsedRange

If IsNumeric(cell.Value) And Len(cell.Value) = 1 Then

cell.Value = Replace(cell.Value, "*", "")

End If

Next cell

End Sub

```

4. 运行宏：关闭VBA编辑器，回到Excel界面，按`Alt + F8`打开“宏”对话框，选择“UnhideCells”宏，点击“运行”。

四、使用“查找和替换”结合公式

1. 选中单元格区域：选中包含星号的单元格区域。

2. 查找和替换：点击“开始”选项卡下的“查找和替换”按钮，或者直接按`Ctrl + H`打开查找和替换对话框。

3. 查找内容：在“查找内容”框中输入公式`=SUBSTITUTE(A1,"*","")`，其中A1是包含星号的单元格引用。

4. 替换为：在“替换为”框中输入公式`=SUBSTITUTE(A1,"*","")`。

5. 全部替换：点击“全部替换”按钮。