vba - 在 VBA 中出现错误

Question

错误:对象变量或未设置 block 变量

代码 :

x.Worksheets.Add().Name = "ab"

x.Worksheets.Add().Name = "bc"

LastRow = x.Sheets("Summary").Columns("A").Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row

Dim pos As Range

For j = 1 To LastRow

    Set pos = x.Sheets("Summary").Range("A1:X" & j).Find(What:="SAP_ALL", LookIn:=xlValues, LookAt:=xlWhole, _
                MatchCase:=False, SearchFormat:=False)

    a = pos.Column

Next j

错误在线 a = pos.Column

Answer 1

如果 Find操作没有发现任何东西，然后pos将是 Nothing .

你需要一个保护条款:

If Not pos Is Nothing Then
    a = pos.Column
End If