推荐于2016-07-20 · 知道合伙人软件行家
首先明白函数名称:MID主要功能:从一个文本字符串的指定位置开始,截取指定数目的字符。使用格式:MID(text,start_num,num_chars)参数说明:text代表一个文本字符串;start_num表示指定的起始位置;num_chars表示要截取的数目。应用举例:假定A47单元格中保存了“”的字符串,在C47单元格中输入公式:=MID(A47,4,3),确认后即显示出“”的字符。特别提醒:公式中各参数间,要用英文状态下的逗号“,”隔开。
其次明白
SEARCH函数
功能:用来返回指定的字符串在原始字符串中首次出现的位置 ,从左到右查找,忽略英文字母的大小写。
格式:SEARCH(find_text,within_text,start_num)
find_text:要查找的文本字符串
within_text:要在哪一个字符串查找
start_num:从within_text的第几个字符开始查找。
注意:在find_text中,可以使用通配符,例如:问号“?”和星号“*”。其中问号“?”代表任何一个字符,而星号“*”可代表任何字符串。如果要查找的字符串就是问号或星号,则必须在这两个符号前加上“~”符号。
最后输入公式
=MID(G11,SEARCH(1,G11,1),11)
如图就好了
在b1单元格输入
=MID(SUM(MID("01"&A1,1+LARGE(ISNUMBER(-MID(1&A1,ROW($1:$50),1))*ROW($1:$50),ROW($1:$15)),1)*10^ROW($2:$16))%,2,99)
ctrl+alt+enter 结束
下拉
一般的文字和数字混合,都能被提取出来
这个不行啊,你看我的图
Private Sub CommandButton1_Click()
Dim i As Integer, m As Integer, str As String
For i = 1 To 100
str = Cells(i, 1).Value
For m = 1 To Len(str) - 10
If Mid(str, m, 1) = 1 Then
If IsNumeric(Mid(str, m, 11)) Then
Open "c:\电话号码.txt" For Append As #1
Print #1, Mid(str, m, 11)
Close
End If
End If
Next m
Next i
MsgBox "完成"
End Sub
查找的电话号码会在C盘的电话号码文件里
如果需要我做的成品,留下邮箱,我发给你
我已验证,运行正常
466450766 谢谢啦
查找的电话号码会在C盘的电话号码文件里
已发送,请查收
希望采纳