Я продолжаю получать объект, необходимый в моем коде.Зачем?

Question

Извините, если это действительно базовый вопрос, но я боролся с ним целую вечность и не могу понять.

Почему мой код продолжает давать объекту требуемую ошибку?

Sub MatchUp()

    For Each PastCell In Range("A1:A240")
        For Each FutureCell In Range("P1:P240")
            If FutureCell.Value = PastCell.Value Then
                Range(FutureCell.Offset(0, 1), FutureCell.Offset(0, 9)).Cut _
                        Range(PastCell.Offset(0, 15), PastCell.Offset(0.23))
            End If
        Next
    Next

    Application.CutCopyMode = False

End Sub

Answer 1

У вас есть пара опечаток, плюс лучше избегать копирования / вставки.Увидеть ниже.Есть более чистые способы сделать это, но этот (непроверенный) код должен привести вас к финишной черте ...

Sub MatchUp()
Dim pastCell As Range, FuturCell As Range


    For Each pastCell In Range("A1:A240").Cells
        For Each FutureCell In Range("P1:P240").Cells
            If FutureCell.Value = pastCell.Value Then
                Range(pastCell.Offset(0, 15), pastCell.Offset(0, 23)).Value = Range(FutureCell.Offset(0, 1), FutureCell.Offset(0, 9)).Value
                Range(FuturCell.Offset(0, 1), FuturCell.Offset(0, 9)).ClearContents

            End If
        Next FuturCell
    Next pastCell
End Sub