Excel VBA运行时错误“1004”

我假设这个问题已经被问了很多次，但是希望我有点不一样。

我遇到了纠正1004运行时错误的问题。 我已经尝试将代码移入和移出工作表，既没有改变任何东西。 我真的不明白我是如何改写这个显然失败的循环

Sub ProgramHideCycle() Dim PROGGRAPH As Worksheet Dim Project As Excel.Workbook Dim Cell As Range Dim CharPos(1 To 3) As Integer Dim ValueENERGCount As Integer Dim ValueCONSUCount As Integer Dim ValueCONTRCount As Integer ValueENERGCount = 0 ValueCONSUCount = 0 ValueCONTRCount = 0 Set Project = ThisWorkbook With Project Set PROGGRAPH = .Sheets("Program Graph") For Each Cell In PROGGRAPH.Range(A5, A93) CharPos(1) = InStr(1, Cell.Value, "ENERG") CharPos(2) = InStr(1, Cell.Value, "CONTR") CharPos(3) = InStr(1, Cell.Value, "CONSU") If CharPos(1) < 0 Then ValueENERGCount = 1 ElseIf CharPos(2) < 0 Then ValueCONTRCount = 1 ElseIf CharPos(3) < 0 Then ValueCONSUCount = 1 Else Cell.EntireRow.Hidden = (Cell.Value = 0 Or Cell.Value = "") End If Next Cell End With End Sub 

该代码显然在'for'循环开始时失败，但试图改变这似乎并没有做任何事情。 我很可能错过了一些明显的东西，感谢您的帮助。

Answer 1

尝试：

 PROGGRAPH.Range("A5", "A93")