如何快速从Excel单元格中删除破折号？

假设你的工作表单元格中有一列邮政编码或较长的ISBN号码，并且这些长数字包含破折号。出于某些原因，你需要去掉这些数字之间的破折号（如下方截图所示）。在Excel中有没有快速的方法可以删除这些数字之间的破折号呢？

使用公式删除单元格中的破折号
使用Kutools for Excel轻松删除单元格中的破折号
使用VBA代码删除单元格中的破折号

使用公式删除单元格中的破折号

通过此SUBSTITUTE函数，数字将被转换为文本值，因此当你删除破折号时，既不会删除前导零，也不会使数字变成科学计数法格式。请按照以下步骤操作：

1. 在相邻的空白单元格（例如C1）中输入以下公式：=SUBSTITUTE(A1,"-",""), 请参见截图：

2. 按下Enter键，然后选择单元格C1，接着拖动填充柄到你想应用该公式的范围。数字之间的破折号已被删除。请参见截图：

使用Kutools for Excel删除单元格中的破折号

如果你是Excel初学者，公式和代码对你来说可能比较困难，请不要担心， Kutools for Excel的删除字符功能可以帮助你快速从单元格中删除破折号。

1. 选择需要删除破折号的单元格范围，然后点击 Kutools > 文本 > 删除字符，参见截图：

2. 在“删除字符”对话框中，勾选自定义选项，并在文本框中输入“-”字符，然后你可以从预览窗格中查看结果。最后点击确定按钮以删除所选单元格中的所有破折号。请参见截图：

注意：如果所选单元格包含前导零或许多位数，为了保留前导零并避免在删除破折号后数字变成科学计数法格式，你需要像下方截图所示那样，在应用“删除字符”工具之前将单元格格式设置为文本格式。

使用VBA代码删除单元格中的破折号

通过以下VBA代码，你还可以从一系列单元格中删除数字之间的破折号。

1. 突出显示要删除破折号的范围。

2. 按住 ALT + F11键打开Microsoft Visual Basic for Applications窗口。

3. 点击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA：删除数字之间的破折号

Sub DeleteDashes()
'Update 20130907
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each rng In WorkRng
    rng.NumberFormat = "@"
    rng.Value = VBA.Replace(rng.Value, "-", "")
Next
Application.ScreenUpdating = True
End Sub

4. 然后按F5键运行此代码，会弹出一个对话框提示你选择要使用的范围。请参见截图：

5. 然后点击确定，数字之间的破折号已从单元格中删除。并且数字格式已转换为文本格式。请参见截图：

相关文章：

• 从单元格中删除字母字符
• 从单元格中删除非数字字符
• 从单元格中删除数字字符
• 从单元格中删除不可打印字符
• 从单元格中删除非字母字符
• 快速删除换行符
• 删除非字母数字字符