DowithIf () для наложения данных в Excel / VB не работает

Question

У меня есть скрипт в Excel / VB и я хочу его запустить. После запуска я получил: Object doesn't support this property or method (Error 438).

Что должно быть исправлено? Мой код только суммирует пару дубликатов: что добавить к сумме по множественным значениям дубликатов?

Sub DowithIf()
    rw = 2
    cl = 4
    erw = 1655

    Do While rw < erw
        Cells(rw, cl).Select
        Cells(rw - 1, cl).Select
        Cells(rw, cl + 1).Select
        Cells(rw, cl + 1).HorizontalAligment = xlCenter

        If Cells(rw, cl) = Cells(rw - 1, cl) Then
            Cells(rw + 1, cl) = Cells(rw, cl - 1) + Cells(rw - 1, cl - 1)
            Cells(rw, cl + 1) = Interior.Color = 13431551
        ElseIf Cells(rw, cl) = "" Then
            Exit Do
        End If

        rw = rw + 1
    Loop
End Sube

Answer 1

Заменить:

End Sube

на утверждение:

End Sub

Answer 2

В вашем коде у вас есть Cells(rw, cl + 1) = Interior.Color = 13431551

Заменить его Cells(rw, cl + 1).Interior.Color = 13431551

И это должно работать