用正则表达式过滤掉带符号内的数据(包含符号0

1588078/37

如图所示
暂时ERP上存储的数据是以()来区分，()内是旧数据  ()外的数据是新数据，，我要取()外的数据，为了防止录入员可能录错符号
把全部符号过滤过，只留符号外的数据，

魂断蓝桥

Sub a()
Dim reg, ARR, I As Integer
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
[b2:b999] = ""
ARR = [a1].CurrentRegion
reg.Pattern = "[(（{]\d+[)）}]"
For I = 2 To UBound(ARR)
    ARR(I, 2) = reg.Replace(ARR(I, 1), "")
Next
Set reg = Nothing
[a1].Resize(UBound(ARR), 2) = ARR
End Sub

DevilW

1. Sub test()
   
2.     With [a:a]
   
3.         .Replace "(*)", ""
   
4.         .Replace "（*）", ""
   
5.         .Replace "{*}", ""
   
6.     End With
   
7. End Sub

复制代码

1016373263

Sub www()
Dim reg As Object, arr, sht As Worksheet
Set sht = Worksheets("sheet2")
arr = sht.Range("a2:a8")
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "[(（{]\d+[)）}]"
For i = 1 To UBound(arr)
sht.Cells(i + 1, 4) = reg.Replace(arr(i, 1), "")
Next
End Sub

Chip_Kenny

1. Sub zz()
   
2. a = [a2:a8]
   
3. With CreateObject("vbscript.regexp")
   
4.     .Pattern = "\D.*?\D"
   
5.     For i = 1 To UBound(a)
   
6.         a(i, 1) = .Replace(a(i, 1), "")
   
7.     Next
   
8. End With
   
9. [b2].Resize(i - 1) = a
   
10. End Sub

复制代码

大六九

Sub 正则去除()
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .Pattern = "[（({]\d+[})）]"
    Mrow = Cells(Rows.Count, 1).End(xlUp).Row
    For Each Rng In Range("a2:a" & Mrow)
    Cells(Rng.Row, 2) = .Replace(Rng, "")
    Next
End With
End Sub

1588078/37

大六九 发表于 2019-11-28 18:10
Sub 正则去除()
Set regx = CreateObject("vbscript.regexp")
With regx

.Pattern = "[（({]\d+[})）]"
我就需要这个表达式
谢谢

ggmmlol

1588078/37 发表于 2019-11-29 13:31
.Pattern = "[（({]\d+[})）]"
我就需要这个表达式
谢谢

难道2楼最先给出的不是这个正则表达式吗？

再说了，你都发了快200个求助贴了，别人帮助你，你却连表示感谢的鲜花都不懂得送吗？2楼的代码，其他的学习的人看到了都送鲜花，你这个原本的求助者难道不惭愧吗？

tspliu

.Pattern = "^\d+|\d+$"

1588078/37

魂断蓝桥 发表于 2019-11-27 14:54
Sub a()
Dim reg, ARR, I As Integer
Set reg = CreateObject("vbscript.regexp")

试了，如果数值带小数点，出不来