VBA错误91 - 无法设置我的范围

Question

我已经完成了我非常粗略的代码，但我正在优化它。

我已经定义了我的工作表，但现在我需要定义我的2个范围rngTo和rngFrom。 rngTo设置没有问题，但rngFrom抛出一个错误91，我不明白为什么。它应该与另一个不同？下面是我认为这是相关代码的一部分，但也有可能是未在此快照使用的一些昏暗的：

Sub Worksheet_UpdateAllItemCostData() 

Dim material As Variant 
Dim fndEntry, rngTo, rngFrom As Range 
Dim wb1 As Workbook, wb2 As Workbook 
Dim wsTo, wsFrom As Worksheet 
Dim lr As Long, I As Long, J As Long 
Const sPOS As String = "Pos. " 

Application.Calculation = xlCalculationManual ' Disable 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

Set wb1 = ThisWorkbook 
Set wsTo = wb1.Sheets("Sagsnr.") 

wsTo.Rows("1:1").Hidden = False 

lr = wb1.Sheets("Sagsnr.").Cells(Rows.Count, "C").End(xlUp).Row 

If lr < 21 Then 
    Exit Sub 
End If 

Set wb2 = Workbooks.Open(Filename:="G:\Backoffice\Tilbudsteam\Kostdatabase\Matcost.xls", ReadOnly:=True) 

Set wsFrom = wb2.Sheets("Matcost") 

    For I = 21 To lr 

     material = wsTo.Range("C" & I).Value 

     Set fndEntry = wsFrom.UsedRange.Columns(4).Find(What:=material) 

    Set rngTo = wsTo.Range("A" & I) 
    Set rngFrom = wsFrom.Range("A" & fndEntry.Row) 

    If Not fndEntry Is Nothing Then 

      rngTo(, "B") = rngFrom(, "H") 

     End If 

Next I 

wb2.Close 
wsTo.Rows("1:1").Hidden = True 

Application.Calculation = xlCalculationAutomatic 'Enable 
Application.DisplayAlerts = True 
Application.ScreenUpdating = True 

End Sub 

Answer 1

变化：

Set rngTo = wsTo.Range("A" & I) 
    Set rngFrom = wsFrom.Range("A" & fndEntry.Row) 

    If Not fndEntry Is Nothing Then 

     rngTo(, "B") = rngFrom(, "H") 

    End If 

要：

If Not fndEntry Is Nothing Then 

     Set rngTo = wsTo.Range("A" & I) 
     Set rngFrom = wsFrom.Range("A" & fndEntry.Row) 
     rngTo.Offset(0, 1) = rngFrom.Offset(0, 7) 

    End If