在VBA中分配值

Question

有人可以协助我进行以下编码。我得到运行时错误 - 13。 我的以下编码有什么问题

String1 = .Offset(0, 6).Cells.Value


With ws1
    .AutoFilterMode = False
    iRow1 = .Range("A" & .Rows.Count).End(xlUp).row
    With .Range("J1:J" & iRow1)
        .AutoFilter Field:=1, Criteria1:=str
        Dim String1 As String
        String1 = .Offset(0, 6).Cells.Value
        MsgBox String1
    End With
.AutoFilterMode = False
End With

Answer 1

.Offset（）应该应用于范围对象