|
楼主 |
发表于 2014-3-29 15:22
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 lhx120824 于 2014-3-29 15:46 编辑
1240楼的公式方案:(安然祥和给出的)
取数:
=IF(ISERROR(FIND(TEXT(ROW(A1),"000"),PHONETIC($A$1:$A$100))),"",TEXT(ROW(A1),"000"))
取名:(要去尾部有类似0,1,2,3...9)
=LEFT(MID(PHONETIC($A$1:$A$100),FIND(B1,PHONETIC($A$1:$A$100))+3,3),LENB(MID(PHONETIC($A$1:$A$100),FIND(B1,PHONETIC($A$1:$A$100))+3,3))-LEN(MID(PHONETIC($A$1:$A$100),FIND(B1,PHONETIC($A$1:$A$100))+3,3)))
附件如下
运动会word名单转换电子表格.rar
(21.27 KB, 下载次数: 70)
|
|