【求助】帮忙看下这代码，又些不太明白。在线等待

哎呀啊

With Sheet4
    For i = 1 To iRow
        If arr(i, 5) = "大定" Then
            '如果是大定，相应位置K - P 列把户主名写进批注并标记相应颜色
            With .Range(arr(i, 1)).Offset(1, 1)
               On Error Resume Next '打开错误开关
                    .AddComment
                    .Comment.Visible = False
                    .Comment.Text Text:=arr(i, 6)
                    .Interior.ColorIndex = 8
                Err.Clear
                On Error GoTo 0 '关闭错误开关
            End With
            End If
在这段代码里的 With .Range(arr(i, 1)).Offset(1, 1) 是什么意思，

yygpd500

.Range(arr(i, 1)).Offset(1, 1)的意思是：
以.Range(arr(i,1))为参考，返回往下移一行、往右移一列的Range对象。
另：
为何要再次发贴，直接在原贴接着发问不行吗？