“1004，应用程序定义或对象定义错误”

爱围观的路人甲

提取标题中的货号。用固定的头三位字母循环去对比标题，发现标题中包含这头三位字母，就从这三个字母起取9个字符。编写了一段代码，运行错误提示红色的那句错了：“1004，应用程序定义或对象定义错误”。检查了一下，instr函数的第二个参数如果用单元格引用的形式代码可以正常运行，换成数组就报错。数组单独拿出运行也没问题。哪位高手帮忙看一下问题出在哪里。多谢了！

Sub test()
Dim i, j, n, l As Integer
Dim irow As Integer
Dim arr As Variant
arr = Array("TAB", "TAJ", "TAN")
l = InputBox("请选择要处理的列号")
n = InputBox("请选择存放结果的列号")
irow = Cells(65536, l).End(xlUp).Row

For j = 0 To 2
        For i = 2 To irow
          If InStr(Cells(i, l), arr(j)) <> 0 Then

            Cells(i, n) = Mid(Cells(i, l), InStr(Cells(i, l), arr(j)), 9)
          End If

        Next
Next

02761752696

l  n  列号为文本，把它转换成数值

zjdh

修改：
Dim i, j, n As Integer, l As Integer