excel 如何取每个字符串的第一个字符 比如A1是“wo ai ni”，那么我想B1是“wan”，请问怎样实现？谢谢

在A1输入字符，且字符满足在数据data1的范围内，在单元格B1显示1否则显示空白，应该如何做？excel问题！~

假设data1的范围为A2:D10,
则在B1单元格中录入如下公式：
=IF(AND(ISERROR(MATCH(A1,A2:A10,0)),ISERROR(MATCH(A1,B2:B10,0)),ISERROR(MATCH(A1,C2:C10,0)),ISERROR(MATCH(A1,D2:D10,0))),"",1)
注意：实际使用中根据需要调整公式中的区域，本例中是将区域分为四列（A2:A10,B2:B10,C2:C10,D2:D10)进行逻辑运算的。

如果 A1=AB123D4567EF89,那么B1的公式
=MID(A1,1,1)&MID(A1,3,3)&MID(A1,7,4)
第7到第10个应该是4567，所以不应该是A1234567E，而是A1234567

以下可以处理任意分开三段的字符
=LEFT(A1,1)&MID(A1,FIND(" ",A1)+1,1)&MID(A1,FIND(" ",RIGHT(A1,LEN(A1)-FIND(" ",A1)))+FIND(" ",A1)+1,1)

不是固定的三段，而是不确定的多段。还是谢谢你。
不固定段数请用VB，别以为函数可以无所不能，当然你可以无限复杂下去，一般5-6个分段也是可以的；还可以使用空格分列，再用LEFT获取第一位字符，并连接。

我从来不认为函数可以无所不能啊，我想请教的也是用VBA啊。昨晚找了很久没有答案，后来还是自己用VBA写函数出来实现了。我想自己回答自己的问题，给后人一个参考，但回答不了，只好作罢。。。
Sub split1()
s = Cells(1, 1)
ns = Left(s, 1)
For i = 2 To Len(s)
If Mid(s, i, 1) = " " Then ns = ns & Mid(s, i + 1, 1)
Next
Cells(1, 2) = ns
End Sub

谢谢你的回答。我不懂VBA的，只是懂函数用Function shouzm(dyg As String) As String这种格式。你写的是子程序吗？怎样用？能否说下步骤（从打开到插入）？
建立宏可以上网查一下，BAIDU参考如下：
http://zhidao.baidu.com/question/228319045.html?an=0&si=1

---

excel 如何取每个字符串的第一个字符 比如A1是“wo ai ni”，那么我想B1是“wan”，请问怎样实现？谢谢视频