提取电话号码

还是社会主义好

=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中单元格显示和编辑栏内容不一致?

东巴豆米

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