Excel如何删除单元格中的公元？如何快速去除？

作者：佚名|分类：EXCEL|浏览：114|发布时间：2025-04-07 02:31:11

在Excel中，我们经常需要处理各种数据，其中可能会包含一些不需要的文本，如“公元”等。这些文本可能会干扰数据的准确性或美观。本文将详细介绍如何在Excel中删除单元格中的“公元”字样，并提供一些快速去除的方法。

一、手动删除单元格中的“公元”

1. 打开Excel，选中包含“公元”字样的单元格。

2. 使用鼠标右键点击选中的单元格，选择“设置单元格格式”。

3. 在弹出的“设置单元格格式”对话框中，选择“文本”选项卡。

4. 在“分类”列表中，选择“自定义”。

5. 在“类型”框中输入“@”，点击“确定”。

6. 此时，单元格中的“公元”字样将被删除。

二、使用查找和替换功能快速去除

1. 选中包含“公元”字样的单元格区域。

2. 按下快捷键“Ctrl+H”打开“查找和替换”对话框。

3. 在“查找内容”框中输入“公元”。

4. 在“替换为”框中保持空白。

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

6. 此时，所选区域中的所有“公元”字样将被删除。

三、使用公式去除

1. 在一个空白单元格中输入以下公式：

```excel

=SUBSTITUTE(A1,"公元","")

```

其中，A1是包含“公元”字样的单元格。

2. 按下回车键，此时，空白单元格中将显示去除“公元”后的内容。

3. 将该公式复制到其他需要去除“公元”的单元格中。

四、使用VBA代码去除

1. 打开Excel，按下“Alt+F11”键进入VBA编辑器。

2. 在“插入”菜单中选择“模块”，在弹出的代码窗口中输入以下代码：

```vba

Sub DeleteGongYi()

Dim ws As Worksheet

Dim rng As Range

Dim cell As Range

Set ws = ThisWorkbook.Sheets("Sheet1") '修改为你的工作表名称

Set rng = ws.UsedRange '选择整个工作表

For Each cell In rng

If InStr(cell.Value, "公元") > 0 Then

cell.Value = Replace(cell.Value, "公元", "")

End If

Next cell

End Sub

```

3. 关闭VBA编辑器，回到Excel界面。

4. 按下“Alt+F8”键，选择“DeleteGongYi”宏，点击“运行”。

五、总结

以上介绍了在Excel中删除单元格中的“公元”字样的几种方法。根据实际情况选择合适的方法，可以快速、准确地去除不需要的文本。