[已解决]求：怎样删除文本后面隐藏字符，不知道怎么表述了，看附件吧

姝薇

表格中两列的文本看起来是一样的，但是做文本比较就不符，求：怎么用Vba删除文本后面隐藏的东西

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-10 21:46

姝薇 发表于 2013-5-10 16:20
还要麻烦老师，运行后的结果用Len得到的还是没有改变

结果在A3单元个，要测试A3的长度。A3的长度是6

300406-VBA-LIKE-识别汉字.rar (15.77 KB, 下载次数: 7)

2013-5-10 21:46 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

提供数据附件，具体问题得具体分析。

姝薇

那么的帅 发表于 2013-5-10 10:26
提供数据附件，具体问题得具体分析。

刚刚上传了，怎么不见了，呵呵

那么的帅

姝薇 发表于 2013-5-10 10:46
刚刚上传了，怎么不见了，呵呵

1.     s = [A1]  '取得原字符
   
2.     s1 = ""  '新字符结果返回在S1
   
3.     For i = 1 To Len(s) '逐一判断是否为汉字
   
4.         If Mid(s, i, 1) Like "[一-龥]" Then s1 = s1 & Mid(s, i, 1)
   
5.     Next i

复制代码

姝薇

那么的帅 发表于 2013-5-10 11:04

帅帅的老师，       If Mid(s, i, 1) Like "[一-龥]" Then s1 = s1 & Mid(s, i, 1)  这个真没看懂，括号里是什么？

那么的帅

姝薇 发表于 2013-5-10 11:47
帅帅的老师，       If Mid(s, i, 1) Like "[一-龥]" Then s1 = s1 & Mid(s, i, 1)  这个真没看懂，括号里 ...

1.     s = [A1]  '取得原字符
   
2.     s1 = ""  '新字符结果返回在S1
   
3.     For i = 1 To Len(s) '逐一判断是否为汉字
   
4.         ' Mid(s, i, 1)  提取S的每一个字符
   
5.         'Like "[一-龥]" 提取后的字符与  "[一-龥]" 进行判断，是否属于汉字 ，其中 "[一-龥]" 为所有汉字的范围
   
6.         If Mid(s, i, 1) Like "[一-龥]" Then s1 = s1 & Mid(s, i, 1)
   
7.     Next i

复制代码

姝薇

那么的帅 发表于 2013-5-10 12:09

但是为啥我运行后结果没有改变呢？

那么的帅

姝薇 发表于 2013-5-10 14:36
但是为啥我运行后结果没有改变呢？

结果在 S1里，需要把S1 写入单元格
比如 [A2]=S1
在A2单元格才会看到结果

姝薇

那么的帅 发表于 2013-5-10 15:18
结果在 S1里，需要把S1 写入单元格
比如 [A2]=S1
在A2单元格才会看到结果

还要麻烦老师，运行后的结果用Len得到的还是没有改变

那么的帅

姝薇 发表于 2013-5-10 16:20
还要麻烦老师，运行后的结果用Len得到的还是没有改变

结果在A3单元个，要测试A3的长度。A3的长度是6

300406-VBA-LIKE-识别汉字.rar (15.77 KB, 下载次数: 7)

2013-5-10 21:46 上传

点击文件名下载附件