在下面的代码中,当我到达Range(i)中的每个curCell时,它无法理解我引用的Range.我收到一个Object'_worksheet'方法'范围'失败了.我知道当前的范围(i)是不正确的,但我已经尝试了每一个变化,似乎没有任何效果.
有人可以帮我理解如何让我的代码识别Range1,然后Range2等？
Sub Worksheet_Change(ByVal Target As Range)
Dim Range1 As Range, Range2 As Range, Range3 As Range, Range4 As Range
Dim curCell As Variant
Dim i As Integer
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(cCostingQSheet)
Set Range1 = ws.Range("E6:E9")
Set Range2 = ws.Range("E15:E19")
Set Range3 = ws.Range("E21")
Set Range4 = ws.Range("E23")
For i = 1 To 4
For Each curCell In Range(i).Cells
If Not WorksheetFunction.IsNumber(curCell) = True Then
curCell.Value = 0
Else
End If
Next
Next
End Sub