如何在Excel中使用带扩展名的电话号码格式(3种简单方法)

  • Share This
Hugh West

你可能需要用扩展名来格式化你的电话号码,你可以通过使用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 简单而快速的方法来 格式化的电话号码 延伸 这些不同的方法将帮助你格式化所有类型的数字。 最后但并非最不重要,如果你有任何种类的建议、想法或反馈,请随时在下面评论。

Hugh West is a highly experienced Excel trainer and analyst with over 10 years of experience in the industry. He holds a Bachelor's degree in Accounting and Finance and a Master's degree in Business Administration. Hugh has a passion for teaching and has developed a unique teaching approach that is easy to follow and understand. His expert knowledge of Excel has helped thousands of students and professionals worldwide improve their skills and excel in their careers. Through his blog, Hugh shares his knowledge with the world, offering free Excel tutorials and online training to help individuals and businesses reach their full potential.