小马驹 发表于 2022-1-20 18:32:39

把数据复制到word中
选择不可见的字符，调出字体对话框看字号的颜色为#FFFFF1
全选表格
按ctril+H 调出替换对话框
勾选使用通配符， 替换内容为空
鼠标定位在查找栏，点右下角的格式，选择字号的颜色。

最后按替换，再把数据复制为Excel

北海鱼 发表于 2022-1-21 03:58:47

字号过滤或者颜色过滤，要用vba的。

王者望着你 发表于 2022-1-22 15:09:05

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

九若 发表于 2022-1-23 01:49:35

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

沉默的时间 发表于 2022-1-31 15:39:41

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

断剑重造 发表于 2022-2-4 07:32:21

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

周利芳 发表于 2022-2-11 03:10:46

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

大灰鸽 发表于 2022-2-12 23:11:11

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

笑草 发表于 2022-2-16 06:46:49

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-2-25 14:48:41

=CONCAT(TEXT(MID(A2,ROW($1:$99),1),"0;0;0;"))三键结束下拉,截取数字是这样子，但是从哪开始取数没说清楚
页: 1 [2] 3
查看完整版本: 提取电话号码