方法範圍失敗

我想生成一個函數來將數據從一個電子表格拖到另一個電子表格，但不斷收到全局方法範圍錯誤。它是第4行產生錯誤。任何解決方案方法範圍失敗

Sub potential() 

    'Add hours for potential work to generate function 

    Worksheets("Resource Forecast").Select 

    ***p = Range("Potential Person").End(xlDown).Row - Range("Potential Person").Row*** (error line) 

    Worksheets("Resourcing Sit-Rep").Select 

    For k = 1 To p 

     For j = 1 To 187 
      If Range("hours").Offset(k, j).Value > 0 Then 

      Sheets("Resource Forecast").Select 
       Val5 = Range("person").Offset(k, 1).Value 
       Val6 = Range("person").Offset(k).Value 
       Val7 = Range("hours").Offset(k, j).Value 
       Val8 = Range("date").Offset(0, j).Value 

      Sheets("Resourcing Sit-Rep").Select 
       A = Range("Leader").Offset(0, 2).End(xlDown).Row - Range("Leader").Offset(0, 2).Row + 1 

       Range("Leader").Offset(A, 2).Formula = Sheets("Resource Forecast").Range("Project_Number").Value & " (" & Sheets("Resource Forecast").Range("Project_Name").Value & ") - " & Val5 & " POTENTIAL WORK" 
       Range("Leader").Offset(A, 3).Formula = Val6 
       Range("Leader").Offset(A, 4).Formula = Val7/7.5 
       Range("Leader").Offset(A, 5).Formula = Val8 

      Else 

      End If 

     Next j 

    Next k 
    Range("Leader").Offset(1, 0).Resize(1, 2).AutoFill Destination:=Range("A4", Cells(Range("Leader").Offset(0, 2).End(xlDown).Row, 2)), Type:=xlFillDefault 

End Sub

來源

2017-07-17 BTD_9

從該行刪除End(xlDown)。

，做你想做，你可以使用下面的（使用間接引用）什麼：

Range("Area2").Cells(1, 1).Row - Range("Area1").Cells(1, 1).Row - Range("Area1").Rows.Count

在這裏，你只算Area1第一排和Area2第一行之間的行量，那麼你從減該區域中的這一行數量。

來源

2017-07-17 08:45:26

我現在正在爲它上面的行獲取下標超出範圍嗎？ –

您是否在'Range'函數中更改了名稱（「Area1」...）？ –

只是改變範圍部分 –

方法範圍失敗

回答

相關問題