[已解决]如何删除2个特定符号之间的内容【已上传附件】

sandorn

样表.zip (17.99 KB, 下载次数: 4)

2017-1-4 15:16 上传

点击文件名下载附件

1. Sub main()
   
2.     Application.ScreenUpdating = False  '关闭屏幕刷新
   
3.     Application.DisplayAlerts = False  '关闭提示
   
4.     On Error Resume Next  '忽略错误
   
5.    
   
6.     rowmax = Cells(Rows.Count, 1).End(3).Row
   
7.     For i = 2 To rowmax
   
8.         With CreateObject("VBSCRIPT.REGEXP")  '创建正则表达式引用
   
9.             .Pattern = "【.*?【"  '首尾条件
   
10.             .Global = False  '全局匹配
    
11.             If .Test(Range("A" & i)) Then Range("B" & i) = .Replace(Range("A" & i), "【")
    
12.         End With
    
13.     Next
    
14.    
    
15.     Err.Clear: On Error GoTo 0 '恢复错误捕捉
    
16.     Application.DisplayAlerts = True  '开启提示
    
17.     Application.ScreenUpdating = True   '开启屏幕刷新
    
18. End Sub
    

复制代码

见附件吧

望帝春心

1. =SUBSTITUTE(A2,MID(A2,FIND("【",A2),FIND("】",A2)-FIND("【",A2)+1)&-LOOKUP(,-MID(A2,FIND("】",A2)+1,ROW($1:$5))),)

复制代码

sandorn

这公式用的666

望帝春心

1. 参考附件

复制代码

loa123

today0427 发表于 2017-1-4 15:14
总感觉你的附件肯定会有出入，给你做了个自定义函数，你先用着看，哪里会有问题

可以，没有出现问题~{:011:}

loa123

望帝春心 发表于 2017-1-4 15:26

这个简单。。。{:021:}

望帝春心

loa123 发表于 2017-1-4 15:34
这个简单。。。

不过我还是喜欢VBA

datongye

Set reg = CreateObject("vbscript.regexp")
With reg
  ss = Cells(3, 1)
    .Pattern = "【[^【]*"
    ss = .Replace(ss, "")
    Debug.Print ss
End With

datongye

实际 就是去除第一个中括号里内容及后面的数字

好001

感谢您的帮忙!2017年有您更精彩!谢谢!