«Требуется объект»

Question

В настоящее время я пытаюсь выполнить математическую операцию добавления трех столбцов (Y, AA и AB).

Но при каждом запуске кода отображается сообщение об ошибке

требуется объект

Sub QCValue()

    Dim Number1 As Range
    Dim Number2 As Range
    Dim Number3 As Range

    Set Number1 = Sheets("RawData").Range("Y2:Y" & Range("A" & Rows.Count).End(xlUp).Row)
    Set Number2 = Sheets("RawData").Range("AA2:AA" & Range("A" & Rows.Count).End(xlUp).Row)
    Set Number3 = Sheets("RawData").Range("AB2:AB" & Range("A" & Rows.Count).End(xlUp).Row)

    Sheets("RawData").Range("AJ2:AJ" & Range("A" & Rows.Count).End(xlUp).Row).Value = Number1 + Number2 + Number3

End Sub

Пожалуйста, помогите мне в устранении неполадок.

Answer 1

Для этого у вас есть цикл работы. Как показано ниже, следует выполнить работу.

Sub QCValue()

Dim i As Integer

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row

    Sheets("RawData").Range("AJ" & i).Value = Sheets("RawData").Range("Y" & i).Value + Sheets("RawData").Range("AA" & i).Value + Sheets("RawData").Range("AB" & i).Value

Next

End Sub

Answer 2

Если я правильно понял, вы можете использовать:

Код:

Option Explicit

Sub QCValue()

    Dim LastRow As Long

    With ThisWorkbook.Sheets("RawData")

        'Find Last rows of Columns Y
        LastRow = .Cells(.Rows.Count, "Y").End(xlUp).Row

        .Range("AJ2:AJ" & LastRow).FormulaR1C1 = "=SUM(RC[-11],RC[-9],RC[-8])"

    End With

End Sub

Результаты: