在Excel VBA中復制粘貼范圍錯誤

Question

我有一個包含5列（B到F）和可變數量的填充行的表。 我想將最后3個填充的單元格復制到同一列的固定范圍（從第101行開始）。

這是我正在使用的代碼：

Dim WSPL As Worksheet
 For i = 2 To 6
        For j = 7 To 1 Step -1
            If Not IsEmpty(WSPL.Cells(j, i).Value) Then
                WSPL.Range(Cells(j - 2, i), Cells(j, i)).Copy Destination:=WSPL.Cells(101, i)
                Exit For
            End If
        Next j
    Next i

這是返回錯誤：

Run-time error: 1004
Method 'Range' of object'_Worksheet' failed

在上面我的代碼的第5行。 此代碼有什么問題？

Answer 1

問題是這條線

WSPL.Range(Cells(j - 2, i), Cells(j, i)).Copy Destination:=WSPL.Cells(101, i)

您的單元格對象不完全合格

嘗試這個

With WSPL
    .Range(.Cells(j - 2, i), .Cells(j, i)).Copy Destination:=.Cells(101, i)
End With

在單元之前注意DOT嗎？