EXCEL不规则，如何取其中数据？

您好,您由宜宾B寄往成都营业部的快件单号860004512533已于2010-11-15 13:52:06由王**签收
您好,您由犀浦寄往武汉快运部的快件单号860003079622已于2010-11-15 12:13:31由张**签收
如何将上面的单号提取出来，用什么公式可以做到呢？

补充：右边也是不规则的，王**、张**可能是两个字，也可能是3个字，二楼的公式应该不行，还有其他方法吗？

比如文字在A1，提取公式：
=MId(A1,FIND("快件单号",A1)+4,FIND("已于",A1)-FIND("快件单号",A1)-4)

如果都是12位的可以简化为
=MId(A1,FIND("快件单号",A1)+4,12)

Function mydata(mystring As String) As Double Dim i As Integer i = 1 Do Until Val(Mid(mystring, i, 1)) > 0 i = i + 1 Loop mydata = Val(Mid(mystring, i, Len(mystring) - i + 1)) End Function 按alt+f8 输入AA创建，进VBA后把代码全删除了，复制上面的代码进去。 把你上面的那些东西放到A1里，在B1里写上=mydata(a1)就可以了。

设你的"您好,您由宜宾B寄往成都营业部的快件单号860004512533已于2010-11-15 13:52:06由王**签收"是一条信息,在A1里.请在B1输入公式: ①第一种: =RIGHt(LEFt(A1,FIND("已于",A1)-1),LEN(LEFt(A1,FIND("已于",A1)-1))-FIND("单号",LEFt(A1,FIND("已于",A1)-1))-1) 公式也可改为: =MId(A1,FIND("单号",A1)+2,FIND("已于",A1)-FIND("单号",A1)-2) 说明:其它的数据在A2,A3...,则把B1公式下拉,即可. ②第二种: 如果要保留原始数据,则复制A列到B列.选中B列,CTRL+H,调出替换框, 查找输入: *单号 替换输入: ' 说明:'为半角英文单引号,然后,按全部替换. 然后,再按一次CTRL+H, 查找输入: 已于* 替换不输入任何. 然后全部替换,即可.

假设源数据在a列，从a1单元格开始，b1单元格输入公式： =leftb(trim(a1),searchb("?",trim(a1))-1) 格式柄下拉复制公式 c1单元格输入公式： =substitute(a1,b1,"") 格式柄下拉复制公式 如果考虑单元格内有两个名字 b1单元格公式可改成： =leftb(substitute(trim(a1)," ",""),searchb("?",substitute(trim(a1)," ",""))-1)