Ошибка, определяемая приложением или объектом, в макросах VBA Microsoft Excel для расчета LastRow

avatar
CBlue
1 июля 2021 в 16:02
38
0
0

новичок в VBA, так что это может быть быстрым решением, но у меня проблемы с этим кодом. Это в самом начале подпрограммы:

Sub NewDiscounts()
    Dim iLastRow As Long
    Dim wsOrg As Worksheet, orgnameB As Range, orgListB As Range
    Set wsOrg = Worksheets("Org List")
    iLastRow = wsOrg.Cells(Rows.Count, "B").End(x1Up).row
    Set orgListB = wsOrg.Range("B3:B" & iLastRow)

Четвертая строка: iLastRow = wsOrg.Cells(Rows.Count, "B").End(x1Up).row вызывает ошибку "Определено приложением или объектом", и я не уверен, почему, так как весь синтаксис кажется правильным. Вы знаете, почему это может быть так? Как это исправить? Спасибо!

Источник
BigBen
1 июля 2021 в 16:06
4

xlUp ... буква l как в lambda, а не число 1. xl ---> Excel.

BigBen
1 июля 2021 в 16:08
3

Также добавьте Option Explicit в начало модуля. Это пометит необъявленную переменную x1Up.

Ответы (0)