Excel VBA：从variables表名称传输数据，运行时错误“91”

我想要做的是将数据从名为sheet的variables传递给某个表（“SUMMARY”）。 然后，我想考虑variables表中的单元格。 所以如果单元格> 0，那么它会将行复制到SUMMARY。 但是我有一个“对象variables或块variables未设置”错误。 我究竟做错了什么？

Sub transfer() Dim ws As String Dim n As Integer Dim i As Long Dim c As Range n = Sheets("Start").Range("c24").Value + 3 If n > 0 Then For i = 3 To n Dim desrow As Integer desrow = i - 1 Dim rng As Range rng = Range("AA11:AA40") For Each c In rng If c = 12 Then Sheets("OFFLIMITS").Cells(desrow, 1).Value = Sheets(i).Range("C3") End If Next c Next i End If End Sub 

Answer 1

你必须Set对象，所以你需要说：

 Set rng = Range("AA11:AA40")