不需要宏吧，直接=if（find（“ ”，a1）>0，"有"，）
修改一下答案：
a1=abcd scvfsf dfdvc dvs
b1=mid(a1,1,find(" ",a1)-1)
c1=MID(a1,FIND(" ",a1)+1,LEN(a1)-FIND(" ",a1))
然后选择b1，c1往右拉，直到出现#value，b1,d1,f1,h1为你需要的内容
宏的话，原理一样 ，拉的过程就是循环过程
If InStr(1, Range("A1").Value, " ") Then
'如果A1的值含有空格……
受到国际飞机赶到
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024