请各位老师帮忙看下这个字符串怎样用VBA分开

fhb197999

各位老师：我现在遇到一个问题是，我在公司的数据表中得到了一些这样的字符串：14Z1350,14Z2350,14z5620,14z8956     我的目的是想得到14Z1350单独一个子串，其实就是想把这个长的字符串分开成一个个的子串，他中间的这些“，”号我发现有的是全角状态输入的，有些是半角状态输入的，请问VBA代码怎样写？

蒙蒙烟雪

建議先Ctrl+F把所有的全角逗號替換成半角的. 然後用函數Split就好了.

fhb197999

蒙蒙烟雪 发表于 2014-11-20 11:04
建議先Ctrl+F把所有的全角逗號替換成半角的. 然後用函數Split就好了.

本人很菜的，请问VBA代码怎样写，这些字符串是在单元格中的

周星骋

楼主问的是 Word 问题，还是 Excel 问题。
如果是 Excel 问题，何不到 Excel 基础区去发帖？

况且，无论是 Word 还是 Excel ，楼主的问题解决起来都很简单，何须要用到 VBA。
为什么非得是VBA解决呢？如果是必须的话，你自己录制个宏就行了。

就像2楼说的，先将分隔号替换成统一的，不就是全角/半角嘛，替换一下就行了。
然后，Word 的解决办法是：文本转换成表格。
　　　Excel 的解决办法是：分列。

fhb197999

周星骋 发表于 2014-11-20 12:38
楼主问的是 Word 问题，还是 Excel 问题。
如果是 Excel 问题，何不到 Excel 基础区去发帖？

谢谢你，哦，原来发错，我的是在excel中的

tan133

dim tmpStr,tmpArr
tmpStr=range("A1")
tmpStr=replace(tmpStr,"，",",")
tmpArr=split(tmpStr,",")
msgbox tmpArr(1)
msgbox tmpArr(2)