作者：绿色风
分类：
时间：2022-08-17
浏览：97
楼主
breezy |
Q：如何按条件拆分文本字符串？
A：附件中有一个拆分文本字符串自定义函数，供大家参考。
 part.rar
- Public Function part(TextStringA As Variant, TextStringB As Variant, Optional Space As Variant = "；") As Double
- '定义TextStringA为待拆分字符串，TextStringB为拆分字段依据，Space为连接各个字段之间的符号（可选，默认为"；")
- Dim i%, LenStr%, PartStr$
- LenStr = Len(TextStringB)
- For i = 0 To UBound(Split(TextStringA, Space), 1)
- PartStr = Split(TextStringA, Space)(i)
- If TextStringB = Left(PartStr, LenStr) Then
- part = Replace(PartStr, TextStringB, "")
- Exit Function
- End If
- Next i
- End Function
|
2楼
nick1213 |
万分感谢
找了很久了 |
3楼
zgwei050 |
学习...........
 |
4楼
kakaco |
受用了。。非常好。 |
5楼
wangxiasy |
还没用到代码 |
6楼
luan2000 |
万分感谢 |
7楼
paul001 |
根据 相关的附件 运行代码 我的为什么没有反应 |
8楼
第一段 |
谢谢分享，很有用的一个自定义函数 |
9楼
19871203 |
收下這個學習一下。 |
10楼
fanglilian |
与合并字符串是姐妹篇啊，哈哈 |
11楼
jiminyanyan |
学习.......... |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一