求助！关于15位的数字的提取！急！请高手多多帮忙！

jerryyang1978 · 发表于 2013-12-12 23:14

求助高手帮忙!
表格见附件，需要设一个公式能将附件中不同位置的15位数字（用红色标注的）提取出来，请高手帮忙，先谢谢啦！

nuantianya · 发表于 2015-11-14 13:58

不知道是不是你想要的，但愿能够帮到你

jhxxl · 发表于 2015-12-10 10:28

nuantianya 发表于 2015-11-14 13:58
不知道是不是你想要的，但愿能够帮到你

你这个每个公式都要变的

jhxxl · 发表于 2016-4-5 09:50

还有更好的方法吗？

胡乱搞搞 · 发表于 2016-8-15 13:08

=VLOOKUP(,MID(a1,ROW($1:$99),15)*{0,1},2,)&"",其中，a1为原始数据。不过，数据里面只能有一组数字。

oppo561314 · 发表于 2016-8-23 10:34

Function GetRed(Rng As Range)
g = Rng.Text
x = ""
Debug.Print Rng.Characters.Count
For I = 1 To Len(g)
      If Rng.Characters(I, 1).Font.ColorIndex = 3 Then
         x = x & Mid(g, I, 1)
      End If
Next
GetRed = x
End Function

把上面代码贴入Excel VBA 模块窗口
假定 A1= "今天我发财了"，B1输入 =GetRed(A1)，你要的精彩内容就出来咯哟

		自动登录	找回密码
密码			免费注册