关于IFERROR MID FIND的用法

Akakpk

小弟新手,关于IFERROR MID FIND的用法,请大神们修改一下

Dim ar As Integer

Dim acn As String

Dim sht As Worksheet
Dim k As Long
Set sht = ThisWorkbook.Worksheets("sheet1")
k = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row


For ar = 1 To k

range(cells(2,ar)).value =WorksheetFunction.IFERROR(MID(range(cells(1,ar),FIND("AWPX",range(cells(1,ar))+6,2),"0")

next ar

chart888

表达式不对
正确的range表达式为
可用 Range(cell1, cell2) 返回一个 Range对象，其中 cell1 和 cell2 为指定起始和终止位置的 Range对象。

Akakpk

在语法上的错,请大神们指出,先谢过

chart888

Akakpk 发表于 2017-8-18 21:18
在语法上的错,请大神们指出,先谢过

你上传个附件吧