Переменная объекта или переменная блока не установлена. Почему?

Question

Я получаю указанную здесь ошибку:

… Из этого раздела кода ...

... и, как вы увидите, переменные ячеек для lastrow и lastcol сообщают нормально, так почему я получаю эту ошибку?

Я пытался настроить его так же, но проблема все та же.

По сути, я просто пытаюсь установить Rg в качестве диапазона, используя значения ячеек, определенные двумя вышеупомянутыми переменными. Использование Excel 2016 VBA. Спасибо. Завтра зайду.

Answer 1

Range - это Объект, поэтому вам нужно использовать команду Set, а не просто '=', которую вы можете использовать для стандартных переменных, таких как Sting, Integer et c. Итак, в вашем примере:

Set Rg = Range(Cells(1, 1), Cells(lastRow, LastCol))

Answer 2

Ниже приведены инструкции по настройке диапазонов:

Sub test()

    Dim rng_Single As Range, rng_Union As Range

    'Refer to the sheet you want to work with
    With ThisWorkbook.Worksheets("Sheet1")

        'Use the "." before range or cell in order to refer to the worksheet mention in the with statement

        'Set the range.
        Set rng_Single = .Range(.Cells(1, 1), .Cells(1, 5))
        'Merge two ranges of the same worksheet
        Set rng_Union = Union(.Range(.Cells(3, 1), .Cells(3, 5)), .Range(.Cells(4, 1), .Cells(4, 5)))

    End With

End Sub