标题：vba如何实现字符串截取？

1楼

vba 发表于：2013/5/4 11:07:25

有一串字符为TA1309_XX_XX，我希望把第一个“_”以前的字符截取出来，即最后得到的结果是TA1309，请老师帮忙看看！

2楼

guotx2010 发表于：2013/5/4 11:55:51

使用instr函数，获取_所在的位置，然后使用mid函数获取字串。

如：

iPos1=instr(1,"TA1309_XX_XX","_",vbTextCompare)

iPos2=instr(iPos1+1,"TA1309_XX_XX","_",vbTextCompare)

sTest=mid("TA1309_XX_XX",1,iPos1-1) & mid("TA1309_XX_XX",iPos1+1,iPos2-iPos1-1) & mid("TA1309_XX_XX",iPos2+1,len("TA1309_XX_XX")-iPos2)

[此贴子已经被作者于2013-5-4 12:03:43编辑过]

3楼

梦想发表于：2013/5/4 12:51:22

strSou= "TA1309_XX_XX"

ary=Split( strSou , "_")

ary(0)就是你想要的结果

共3 条记录, 每页显示 10 条, 页签: [1]