Table of contents
你可能需要用扩展名来格式化你的电话号码,你可以通过使用Excel的内置功能和公式来轻松做到这一点。 在这篇文章中,我们将了解到 Excel电话号码格式 与 延伸 使用简单的公式& 功能。
这里我们有一个数据集,有 名称 &。 电话 现在我们将 格式化的电话号码 与 延伸 使用这个数据集。
下载实践工作手册
带分机的电话号码格式.xlsm在Excel中用扩展名格式化电话号码的3种方法
1.使用自定义格式功能,用分机格式化电话号码
通过使用 自定义格式功能 你可以 格式 的 电话 与 延伸 .
在这里,我有一些电话号码,将告诉你如何 格式 这些 数字 .
要做到这一点。
- 首先,选择要使用的单元格或单元格区域 自定义格式 .
- 在这里,我选择的范围是 C5:C10 .
- 现在。 右键点击 关于 鼠标 以打开 上下文菜单 .
- 随后,选择 格式化单元格 .
A 对话框 的 格式化单元格 将会出现。
- 从那里选择 定制 然后在 类型 插入 格式 你想应用于你的数字。
- 在这里,我使用了 (###) ###-### "ext" ##
- 最后点击 认可 .
因此,你会得到 电话 与 延伸 .
阅读更多。 如何在Excel中书写电话号码(各种可能的方法)
2.使用Excel组合函数格式化带分机的电话号码
如果你愿意,你可以使用 左边 和 医学部 功能,以 格式化的电话号码 与 延伸 .
让我向你解释一下这个程序。
- 首先,选择你选择的单元格来放置 结果 价值。
- 在这里,我选择了单元格 D5 .
- 现在,在下面的公式中输入 D5 细胞或进入 公式吧 .
="("&LEFT(C5,3)&")"&MID(C5,4,3)&"-"&MID(C5,7,4)&" ext"&MID(C5,11,99)
在这里,我使用了以下组合 左边 和 医学部 职能。
公式分解
- "("&LEFT(C5,3)&")-->。 ǞǞǞ 左边 函数将返回 3 的字符。 左侧 .
- 产出:101
- "("&LEFT(C5,3)&")-->。 在这里, 安培数(&) 将添加 副词 .
- 输出:"(101)"
- MID(C5,4,3)--> ǞǞǞ 医学部 函数将返回 3 的字符。 中间 的选择,从 第四届 字。
- 输出:"345"
- MID(C5,7,4)--> 它成为
- 输出:"6789"
- MID(C5,11,99)--> 它变成了
- 输出:"6"
- " ext"&MID(C5,11,99)-->。
- " ext"&6--> 在这里, 安培数(&) 将文本连接起来 延伸 与数字 6 .
- 输出:"ext6"。
- "("&LEFT(C5,3)&")"&MID(C5,4,3)&"-"&MID(C5,7,4)&" ext"&MID(C5,11,99)
- “(“&101)&”)”&345&”-“&6789)&” ext”&6
- 输出:(101)345-6789 ext6
- 解释一下。 在这里,通过使用 安培数(&) 将不同格式的数字串联起来,用 延伸 .
现在,按 进入 以获得预期的电话号码格式,并以 延伸 .
- 在这里,你可以使用 填充手柄 至 自动填表 其他单元格的公式。
阅读更多:如何在Excel中格式化带有国家代码的电话号码(5种方法)。
3.使用VBA格式化带扩展名的电话号码
你也可以使用 Visual Basic应用(VBA) 至 格式化的电话号码 与 延伸 在这里,我将使用一个 私募基金 这将被应用在 钣金 .
让我向你解释一下这个程序。
首先,打开 开发商 标签>> 然后选择 Visual Basic。
然后,它将打开一个新的窗口 微软Visual Basic应用程序 .
- 现在,选择 钣金 因为它是一个 私募基金 .
- 接下来,选择 工作表 从 一般 .
- 然后,选择 变化 从 申报。
现在,在以下代码中写上 钣金 .
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column 1 Then Exit Sub If Target.Count> 1 Then Exit Sub If Len(Target) = 8 Then With Target Application.EnableEvents = False .Value = "(" & Left(.Value, 3) & " ) " & Mid(.Value, 4, 3) & "-" & " ext" & Right(.Value, 2) Application.EnableEvents = True Exit Sub End With 结束If If Len(Target) = 10 Then With Target Application.EnableEvents = False .Value = "(" & Left(.Value, 3) & ") " & Mid(.Value, 4, 4) & "-" & "ext" & Right(.Value, 3) Application.EnableEvents = True Exit Sub End With End If Len(Target) = 12 Then With Target Application.EnableEvents = False .Value = "( " & Left(.Value, 3)& ") " & Mid(.Value, 4, 3) & "-" & Mid(.Value, 7, 4) & _ "-" & "ext" & Right(.Value, 3) Application.EnableEvents = True Exit Sub End With End If End Sub
在这里,我使用了一个 Private Sub Worksheet_Change(ByVal Target As Range) 其中,它将检查每个新的条目在 工作表 它是否满足了 目标(Len) 的。 数 如果它符合以下条件 电话 将获得格式化的 延伸 .
代码分解
- 在这里,我使用了 多个IF语句 来检查数字的数量。 我已经写好了格式,用于 8,10, 和 12 挖,你可以根据你的需要来改变它。
- 接下来,我用 价值 选择单元格 价值 然后用 左边的VBA ,以及 中型 的函数,以使 格式 我的选择。
请注意。 该代码将适用于列 A .
- 现在。 拯救 的代码,并回到你的 工作表 .
- 在这里,我输入了 8位数 中的数字。 A1 细胞。
然后,按 进入 来获得你所选择的格式,用 延伸 .
这里,是 格式 的3种类型的数字。
阅读更多。 改变电话号码格式的Excel公式(5个例子)
练习部分
这里我提供了一张练习表,供你练习所讲解的方法。
总结
我试图解释 3 简单而快速的方法来 格式化的电话号码 与 延伸 这些不同的方法将帮助你格式化所有类型的数字。 最后但并非最不重要,如果你有任何种类的建议、想法或反馈,请随时在下面评论。