如何快速分割EXCEL表格中的电话和座机？

发布网友 发布时间：2022-04-20 20:45

我来回答

共4个回答

热心网友 时间：2023-06-22 00:45

假如数据在A列并从A1开始，在B1单元格输入公式=CHOOSE(COLUMN()-1,IFERROR(LEFT($A1,FIND("-",$A1)),LEFT($A1,3)),IFERROR(IF(LEN(RIGHT($A1,LEN($A1)-FIND("-",$A1)))=7,MID($A1,FIND("-",$A1)+1,3),MID($A1,FIND("-",$A1)+1,4)),MID($A1,4,4)),RIGHT($A1,4))

右拉公式两格，再下拉公式。 如图：

示例

热心网友 时间：2023-06-22 00:45

在B2单元格输入公式：
=CHOOSE(COLUMN(A$1),LEFT($A2,IF(ISNUMBER(FIND("-",$A2)),FIND("-",$A2),3)),MID(!$A2,IF(ISNUMBER(FIND("-",$A2)),FIND("-",$A2)+1,4),3+(--LEFT($A2)=1)),RIGHT($A2,4))
复制并下拉即可……
下次提问上图别忘了带上行列标号！

热心网友 时间：2023-06-22 00:45

B1
=IF(ISNUMBER(FIND("-",A1)),LEFT(A1,5),LEFT(A1,3))
C1
=IF(ISNUMBER(FIND("-",A1)),MID(A1,6,LEN(A1)-9),MID(A1,4,4))
D1
=RIGHT(A1,4)
一起下拉填充公式
即可

热心网友 时间：2023-06-22 00:46

可以用VBA来实现，代码如下
Sub tel2()
Dim rng As Range, a As Range
Set rng = Application.InputBox("请选择单元格区域", "提取单元格的中文", , , , , , 8)
For Each a In rng
MyStr = a.Value
ResultStr = ""
With CreateObject("VBSCRIPT.REGEXP")
.Pattern = "\d{3}-\d{8}|\d{4}-\{7,8}"
.IgnoreCase = True
.Global = True
If .test(MyStr) Then
For Each Item In .Execute(MyStr)
ResultStr = ResultStr & Item
Next Item
a.Offset(0, 1) = ResultStr
End If
End With
Next a
End Sub