如何分割text1的内容?

例如:text1.text="[email protected]"

如何把text1的内容分割成text2="werggg" text3="@163.com"

谢谢~

可以用两种方法。

一种是用INSTR函数。
text2=left(text1.text,instr(text1.text,"@")-1)
text3=mid(text1.text,instr(text1.text,"@")

第二种是用SPLIT函数
Dim TempStr() As String
TempStr = Split(text1, "@")
text2 = TempStr(0)
text3 = "@" + TempStr(1)