方法对象范围全局失败

Question

即使我已经初始化工作表并确保名称正确，我仍在为代码获取对象__global错误的方法范围。 有什么帮助吗？ 该代码应查找包含数据的单元格范围，并将其放入第二个电子表格中

Sub potential()

'Add hours for potential work to generate function

Sheets("Resourcing Sit-Rep").Select

p = Range("Potential person").End(xlDown).Row - Range("Potential person").Row
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("Potential person").Offset(k, 1).Value
            Val6 = Range("Potential 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

Answer 1

我要说的第一件事是，您应该始终使用特定的工作表对象来限定范围。

但是您的问题是：

Range("Potential person")无效。 范围方法找不到这样的范围。

Excel命名范围中不能包含空格，因此您的范围必须带有下划线或其他内容。 尝试使用没有空格的简单测试，您应该会有所进步。