[已解决]关于inStrRev搜索空格的位置

raymanrrr

单元格的文本内容为"：M-253 19件"
我在尝试通过返回空格的位置把这个包含了型号和数量的信息分开成两个信息，但是遇到了点问题

写了段测试代码如下
Sub test()
Dim txt As String
txt =  selection.text
Debug.Print Selection.text
Debug.Print InStrRev(txt, " ")
End Sub

这里得到的值分别是
：M-253?19件
0

但是如果直接txt = "：M-253 19件"  是可以正常返回空格所在的位置的，通过单元格赋值就总是返回零，我用问号代替空格也没法，求指点。

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-8-17 15:31

raymanrrr 发表于 2016-8-17 15:18
源文件不便上传，做了个标本，运行效果还是一样的

这个不是空格，是EXCEL不认识的字符，数据应该是从别的系统导出的。

跳转到最佳答案楼层

望帝春心

上个文件看看吧

raymanrrr

望帝春心 发表于 2016-8-17 15:04
上个文件看看吧

源文件不便上传，做了个标本，运行效果还是一样的

望帝春心

raymanrrr 发表于 2016-8-17 15:18
源文件不便上传，做了个标本，运行效果还是一样的

这个不是空格，是EXCEL不认识的字符，数据应该是从别的系统导出的。

望帝春心

代码这样改一下

1. Sub test()
   
2.     Dim txt As String
   
3.     txt = Selection.Text
   
4.     Debug.Print Selection.Text
   
5.     Debug.Print InStrRev(txt, Mid$(Selection.Text, 7, 1))
   
6. End Sub

复制代码

raymanrrr

望帝春心 发表于 2016-8-17 15:31
这个不是空格，是EXCEL不认识的字符，数据应该是从别的系统导出的。

数据是别人在QQ上发给我然后我复制到表格里的一句话钟的一部分

望帝春心

raymanrrr 发表于 2016-8-17 15:39
数据是别人在QQ上发给我然后我复制到表格里的一句话钟的一部分

如果所有的间隔都是这个符号，可以固定取一个单元格，然后循环去找各个单元格中的位置。

raymanrrr

望帝春心 发表于 2016-8-17 15:43
如果所有的间隔都是这个符号，可以固定取一个单元格，然后循环去找各个单元格中的位置。

有道理，我可以试试在QQ里复制一个空格到单元格中然后看看能不能这样找到间隔符号的位置，之前的话倒是点醒了我，我把单元格复制粘贴为值以后果然宏可以正常工作了。

间隔符号的文本和位置不固定，看发消息给我的人的心情，我是建立了个索引列，把她们可能用到的间隔符号都填了进去，然后循环进行搜索比对的。

把别人发过来的一句话直接分解成出库信息自动填写，实在是太爽啦！

好像不行，直接复制QQ的空格到单元格里，用isblank函数判断是true

望帝春心

raymanrrr 发表于 2016-8-17 19:07
有道理，我可以试试在QQ里复制一个空格到单元格中然后看看能不能这样找到间隔符号的位置，之前的话倒是点 ...

厉害的，哈哈~

望帝春心

raymanrrr 发表于 2016-8-17 19:07
有道理，我可以试试在QQ里复制一个空格到单元格中然后看看能不能这样找到间隔符号的位置，之前的话倒是点 ...

好像是吧，我试过，所以让你用MID$固定一个单元格把间隔符提取出来