通配符替换问题

comyz

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

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

笨鸟飞不高

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

加循环试试！！

笨鸟飞不高

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

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

替换      \1

zpy2

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

comyz

非常感谢大家！！