提取电话号码

那时天蓝风暖

从杂乱无章的一串数字中提取电话号码，

提取电话号码.rar (20.1 KB, 下载次数: 69)

2021-12-25 07:24 上传

点击文件名下载附件
提取电话号码.rar

草原上的鹰

=CONCAT(TEXT(MID(A2,ROW($1:$99),1),"0;0;0;"))三键结束下拉,截取数字是这样子，但是从哪开始取数没说清楚

雅君堂环保养生装饰

=CONCAT(TEXT(MID(A2,ROW($1:$20),1),"0;;0;"))

一点儿也不饿

去VBA吧，公式基本上是解决不了这问题了

狄龙

把文字颜色改成黑色就可以了看到字符了，但是你的手机号码是从哪一位开始算起？

扬起

复制到word，查找白色字，全部替换为空不就行了吗？

好吃不粘牙

复制到Word 选择格式相似文本删除，复制回Excel

廖敏仪

Sub tt()
  Application.ScreenUpdating = False
  Range("b:b").NumberFormatLocal = "@"
  For i = 2 To Range("a1").End(xlDown).Row
  temStr = ""
   With Range("a" & i)
    For y = 1 To Len(.Value)
      If .Characters(y, 1).Font.Color = vbBlack Then
      temStr = temStr & Mid(.Value, y, 1)
      End If
    Next
    Range("b" & i) = temStr
  End With
  Next
  Application.ScreenUpdating = True
End Sub

供参考

高中数学张微

高，实在是高

今阳明

搜索疫苗数据。。。今年太多这样的问题了！
基本操作就是复制到WORD 按规式替换1号和2号字体再复制回来即可！
Excel中单元格显示和编辑栏内容不一致?