[已解决]按指定条件截取字符串中的部分字符

心灵有约

截取指定字符.zip (8.23 KB, 下载次数: 36)

2013-5-24 16:59 上传

点击文件名下载附件
说明：被截取的字符串行数不确定，或许3行也许300行

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-29 17:09

心灵有约 发表于 2013-5-29 16:25
[/td][/tr]
[/table]

301510-VBA-自定义函数-截取指定字符.rar (20.69 KB, 下载次数: 134)

2013-5-29 17:09 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

普通函数公式，还是VBA 自定义函数 或者 VBA代码解决？

心灵有约

那么的帅 发表于 2013-5-24 17:25
普通函数公式，还是VBA 自定义函数 或者 VBA代码解决？

vba代码
首先判断X是否存在，其次才是数字

xdd_sky

做了个  看看是不是符合你要求。。。

心灵有约

xdd_sky 发表于 2013-5-24 22:27
做了个  看看是不是符合你要求。。。

截取指定字符.zip (18.06 KB, 下载次数: 14) 2013-5-29 16:25 上传 点击文件名下载附件 编码	名称	期望截取后名称	补充规则
1001	MWP-AIC	MWP-AIC	无数字及"X",全截取
1002	HPVP-U2CXXP	HPVP-U2C	同时有数字及"X",以后者为准
1003	HPL-6XXXX30KGD	HPL-6	同时有数字及"X",以后者为准
1005	玉米	玉米	全中文，全截取
1006	XKF-ZM20KG01P	XKF-ZM	"-"前有"X",该"X"不考虑
1007	TTP-A25KG01P	TTP-A	总规则：字符串中有“X”则从X前截取至最首，如无X有数字则从数字前予以截取，如果数字前或X前为“-”则从“-”前截取 原则上"-"前的字符不做变动 问题：运行本示例出错，无效的过程调用或参数

xdd_sky

心灵有约 发表于 2013-5-29 16:25
[/td][/tr]
[/table]

改了下     你看下    看是不是符合你的要求

那么的帅

心灵有约 发表于 2013-5-29 16:25
[/td][/tr]
[/table]

301510-VBA-自定义函数-截取指定字符.rar (20.69 KB, 下载次数: 134)

2013-5-29 17:09 上传

点击文件名下载附件

心灵有约

xdd_sky 发表于 2013-5-29 16:59
改了下     你看下    看是不是符合你的要求

无效的调用或参数

xdd_sky

心灵有约 发表于 2013-5-30 10:10
无效的调用或参数

上次忘记保存了、、、、、汗。。。

香川群子

1. Function TQ(txt)
   
2.     n = InStr(txt, "-"): TQ = Left(txt, n): txt = Mid(txt, n + 1)
   
3.    
   
4.     If InStr(txt, "X") Then
   
5.       TQ = TQ & Left(txt, InStr(txt, "X") - 1)
   
6.     Else
   
7.       If txt Like "*[0-9]*" Then
   
8.         For i = 1 To Len(txt)
   
9.           If IsNumeric(Mid(txt, i, 1)) Then TQ = TQ & Left(txt, i - 1): Exit For
   
10.         Next
    
11.       Else
    
12.         TQ = TQ & txt
    
13.       End If
    
14.     End If
    
15. End Function

复制代码

这样看上去结构比较清晰一些。