那时天蓝风暖 发表于 2021-12-25 07:24:00

提取电话号码

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

草原上的鹰 发表于 2021-12-30 08:25:42

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

雅君堂环保养生装饰 发表于 2021-12-31 02:14:17

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

一点儿也不饿 发表于 2021-12-31 14:35:15

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

狄龙 发表于 2022-1-8 02:42:42

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

扬起 发表于 2022-1-11 06:30:50

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

好吃不粘牙 发表于 2022-1-14 19:58:55

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

廖敏仪 发表于 2022-1-15 09:47:13

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

供参考

高中数学张微 发表于 2022-1-19 02:44:06

高，实在是高

今阳明 发表于 2022-1-19 07:47:05

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