在循环中正确设置范围

Question

我无法弄清楚我在这段代码中犯的错误是什么。错误在于设置范围（最后一个循环的第3行）。任何帮助，将不胜感激。我这里有很多代码，但我相信所有这些都很好，除了在p的最后一个循环中它给出了一个关于我认为的范围函数的错误。

              For p = 1 To 100
                    If ActiveWorkbook.Worksheets(1).Cells(p + 26, 10).Value = Sheet3.Cells(6 + k, 4).Value Then
                        Set rng = Sheet3.Range(Cells(k + 6, 5), Cells(k + 6, 12))
                        lAnswer = Application.WorksheetFunction.Sum(rng)
                        ActiveWorkbook.Worksheets(1).Cells(p + 27, 13).Value = lAnswer
                        k = k + 1
                    End If
                Next p

    End If
Next t
End Sub

Answer 1

您必须使用工作表对Range和Cells进行限定：

Set rng = Sheet3.Range(Sheet3.Cells(k + 6, 5), Sheet3.Cells(k + 6, 12))