才开始没有看清题目,修改了公式.另外写了一个自定义函数。1.=LEFT(IF(ISERR(FIND(0,A1)),"",0)&IF(ISERR(FIND(1,A1)),"",1)&IF(ISERR(FIND(2,A1)),"",2)&IF(ISERR(FIND(3,A1)),"",3)&IF(ISERR(FIND(4,A1)),"",4)&IF(ISERR(FIND(5,A1)),"",5)&IF(ISERR(FIND(6,A1)),"",6)&IF(ISERR(FIND(7,A1)),"",7)&IF(ISERR(FIND(8,A1)),"",8)&IF(ISERR(FIND(9,A1)),"",9),4)A1中前4个出现的数字--------------------2.=SUBSTITUTE(CONCATENATE(IF(ISERR(FIND(0,B1)),0),IF(ISERR(FIND(1,B1)),1),IF(ISERR(FIND(2,B1)),2),IF(ISERR(FIND(3,B1)),3),IF(ISERR(FIND(4,B1)),4),IF(ISERR(FIND(5,B1)),5),IF(ISERR(FIND(6,B1)),6),IF(ISERR(FIND(7,B1)),7),IF(ISERR(FIND(8,B1)),8),IF(ISERR(FIND(9,B1)),9)),FALSE,"")B1中没有出现的数字-------------自定义函数GetAppear代码如下:***********************************Function GetAppear(Rng As Range, Str As String, Optional Tpye As Boolean = True)Dim Arr() As StringDim I As IntegerReDim Arr(1 To Len(Str))For I = 1 To Len(Str)Select Case TpyeCase True:If InStr(Rng, Mid(Str, I, 1)) ThenArr(I) = Mid(Str, I, 1)End IfCase False:If InStr(Rng, Mid(Str, I, 1)) = 0 ThenArr(I) = Mid(Str, I, 1)End IfEnd SelectNextGetAppear = Replace(Join(Arr), " ", "")End Function***********************************使用方法:Alt+F11,菜单,插入-模块复制以上代码。回到ExcelA1的内容是:1334557B1输入公式:=Left(GetAppear(A1,"0123456789",True),4)返回A1中0123456789出现的数字前4个数字1345C1输入公式:=GetAppear(A1,"0123456789",False)返回B1中0123456789没有出现的数字026789这个自定义函数的适用范围可以更广一点