VBA運行代碼，直到列范圍的最后一行

Question

我的代碼成功算出我的最后一行代碼所在的位置，但是到達設置數據范圍時卻給出了運行時錯誤1004，但是我希望代碼一直運行到我的范圍的最后一行。 有人知道如何修復我的代碼嗎？

Sub PopulatingArrayVariable()

Dim myArray() As Variant
Dim DataRange As Range
Dim cell As Range
Dim x As Long
Dim TotalTargets As Double
Dim lastrow As Long

lastrow = Cells(Rows.Count, "D").End(xlUp).Row

TotalTargets = WorksheetFunction.Max(Columns("D"))

Set DataRange = Sheets("Result").Range("D:I" & lastrow)

For Each cell In DataRange.Cells
    ReDim Preserve myArray(x)
    myArray(x) = cell.Value
    x = x + 1
Next cell
End Sub

Answer 1

這里的錯誤類型：

Set DataRange = Sheets("Result").Range("D:I" & lastrow)

應該

Set DataRange = Sheets("Result").Range("D1:I" & lastrow)

或Dx，其中x是您的第一行。