Excel点号如何转成横杠？如何快速替换？

Excel中点号转横杠的技巧与快速替换方法

导语：

在Excel中，我们经常会遇到需要将点号（.）转换成横杠（-）的情况，比如在处理电话号码、身份证号码等数据时。本文将详细介绍如何在Excel中将点号转换成横杠，并提供快速替换的方法，帮助您提高工作效率。

一、点号转横杠的方法

1. 使用查找和替换功能

（1）打开Excel表格，选中需要转换的单元格区域。

（2）点击“开始”选项卡，在“编辑”组中找到“查找和替换”按钮，或者直接按快捷键Ctrl+H打开查找和替换对话框。

（3）在“查找和替换”对话框中，选择“查找”选项卡。

（4）在“查找内容”框中输入点号（.），在“替换为”框中输入横杠（-）。

（5）点击“全部替换”按钮，即可将选中的单元格区域中的点号全部替换成横杠。

2. 使用公式转换

（1）在需要转换的单元格旁边插入一个空白单元格。

（2）在空白单元格中输入以下公式：=SUBSTITUTE(A1,".","-")，其中A1是需要转换的单元格。

（3）按下回车键，即可将A1单元格中的点号转换成横杠。

二、快速替换方法

1. 使用快捷键

在Excel中，我们可以使用快捷键Ctrl+H快速打开查找和替换对话框，然后按照上述方法进行替换。

2. 使用VBA宏

（1）按下Alt+F11键，打开VBA编辑器。

（2）在“插入”菜单中选择“模块”，在打开的模块窗口中粘贴以下代码：

```vba

Sub ReplaceDotWithDash()

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键，选择“ReplaceDotWithDash”宏，点击“运行”按钮。

三、相关问答

1. 问题：如何批量替换多个工作表中的点号？

答案：选中所有需要替换的工作表，然后按照上述方法进行替换。

2. 问题：如何将单元格中的点号转换成横杠，但不影响其他单元格？

答案：在需要转换的单元格旁边插入一个空白单元格，然后使用公式进行转换。

3. 问题：如何使用VBA宏在Excel中批量替换点号？

答案：按照上述VBA宏的方法，将代码中的工作表名称修改为你的工作表名称，然后运行宏即可。

总结：

在Excel中，将点号转换成横杠的方法有很多，包括使用查找和替换功能、公式转换以及VBA宏等。掌握这些方法，可以帮助我们在处理数据时更加高效。希望本文能对您有所帮助。