通配符替换问题

comyz · 发表于 2020-7-7 11:50

我想达到的目的是，无论单元格里有多少内容，只要含有”第1批“，该单元格就替换成”第1批“，只要含有”第2批“，该单元格就替换成”第2批“。
p.s. 我在使用WORD等其他软件中也有这个问题，主要问题在于，我知道用通配符查找，不知道怎么用通配符替换。比如下面这种
If Range("a1") Like "*第*批*" Then
Range("b1") = "第*批"
End If

很明显这个替换出来，无论第几批，替换出来都是第*批。
求老师们指教！

笨鸟飞不高 · 发表于 2020-7-7 12:05

Sub AwTest()
Dim n%
For n = 1 To 10
If InStr(Range("A1").Value, "第" & n & "批") Then Range("A1") = "第" & n & "批"
Next
End Sub

加循环试试！！

笨鸟飞不高 · 发表于 2020-7-7 12:10

本帖最后由笨鸟飞不高于 2020-7-7 12:12 编辑

Sub AwTest()
Dim n%, i%, arr
arr = [a2].CurrentRegion
For i = 1 To UBound(arr)
      For n = 1 To 10
         If InStr(arr(i, 1), "第" & n & "批") Then arr(i, 1) = "第" & n & "批"
      Next
Next
[a2].CurrentRegion = arr
End Sub

duquancai · 发表于 2020-7-7 12:17

本帖最后由 duquancai 于 2020-7-7 12:19 编辑

查找 ^.*?(第\d+批).*

替换 \1

zpy2 · 发表于 2020-7-7 12:29

正则
select regexp2('(第\d+批)',正则,1) from 正则提取明细表

comyz · 发表于 2020-7-7 15:37

非常感谢大家！！

		自动登录	找回密码
密码			免费注册

[求助] 通配符替换问题

评分

评分

评分