| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2090 人关注过本帖
标题:提取指定符号前后和之间的文本
只看楼主 加入收藏
he89762566
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-3-26
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
提取指定符号前后和之间的文本
单元格A1内容为:02云南\丽大泸\你好,丽江-1399.doc

a = Range("A1")

b = ???????????
c = ???????????
d = ???????????
e = ???????????

msgbox b   显示     02云南\丽大泸           (最后一个符号\前的内容)
msgbox c   显示     02云南                  (第一个符号\前的内容)
msgbox d   显示     1399                    (符号-和符号.之间的内容)
msgbox e   显示     你好,丽江              (最后一个符号\和符号-之间的内容)

请问大神,文中的???????????用VBA应该怎么表示

[此贴子已经被作者于2021-5-4 16:46编辑过]

搜索更多相关主题的帖子: 指定 符号 内容 msgbox 显示 
2021-05-04 15:50
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:216
帖 子:1506
专家分:9241
注 册:2010-3-16
收藏
得分:20 
程序代码:
Sub T()

    a = Range("A1")
    
    b = Left(a, InStrRev(a, "\") - 1)
    c = Left(a, InStr(a, "\") - 1)
    d = Mid(a, InStrRev(a, "-") + 1, InStrRev(a, ".") - InStrRev(a, "-") - 1)
    e = Mid(a, InStrRev(a, "\") + 1, InStrRev(a, "-") - InStrRev(a, "\") - 1)
    
    MsgBox b
    MsgBox c
    MsgBox d
    MsgBox e

End Sub
2021-05-04 22:32
快速回复:提取指定符号前后和之间的文本
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016413 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved