正则+数组 形成正则式样的变量？

xuhling123

我是一个初学者，在尝试给Pattern加入一个变量或者一个数组，用工作表的某列来建立数组，这种方法是否可行？
请高手看看我写的下列代码错误在哪里？该怎样写才正确，请指正，非常感谢！

Option Explicit
Sub s_filter()
    Dim dat As Worksheet, res As Worksheet, AR As Worksheet
    Dim ln As Long, i As Long, k As Integer
    Dim arr()
   
    Set dat = Sheets("未确认收入") '要筛选的原始表
    Set res = Sheets("本期确认收入") '符合条件结果保存表
    Set AR = Sheets("AR模块OEM")
   
    Dim n As Long
    Dim j As Long
   
    With Sheets("AR模块OEM").Activate
    n = Application.WorksheetFunction.CountA(AR.Range("J:J"))
    ReDim arr(1 To n) As String
    For j = 1 To n
    arr(j) = Cells(j, 9)
   
    ln = dat.[a60000].End(3).Row   '提示对象变量或with块变量未设置
    With CreateObject("vbscript.regexp")
        .Global = False
        .Pattern = arr(j)   '正则样式是否可行？
        .Global = True
        .MultiLine = False
        For i = 1 To ln
            If .test(dat.Range("J" & i).Value) Then   '提示对象变量或with块变量未设置
                k = k + 1
                dat.Range("A" & i).EntireRow.Copy res.Range("A" & k + 1)
            End If
        Next i
        MsgBox k
    End With
    Set res = Nothing
    Set dat = Nothing
    Next j
    End With
   
End Sub

microyip

Dim ln As Double, i As Double, k As Double, j As Double, n As Double

duquancai

.Pattern = arr(j)   这句代码：“能保证每一个arr(j)的值是符合正则表达式规范吗？？？”

xuhling123

duquancai 发表于 2019-11-30 13:09
.Pattern = arr(j)   这句代码：“能保证每一个arr(j)的值是符合正则表达式规范吗？？？”

不添加变量的情况是这样填入正则式样的：
.Pattern = "^(GKFF76060ADD|EKFF88000AUU)"

Range("J:J")的每个非空单元格都是EKFM89000AJJ，EKFF80040CCC，EKFF89000BJJ这样的料号。
arr(j) 每次返回的值就是这个料号。

是否可以这样？
.Pattern = arr(j)  

xuhling123

上面代码中的错误行 “'提示对象变量或with块变量未设置”
是哪里错了？
求各位高人告知，谢谢！