Sub или функция не определены: запуск макроса в Excel 2016

Question

Я пытаюсь запустить макрос в Excel, чтобы удалить повторяющиеся значения из каждого столбца, не влияя на значения из других столбцов, и я получаю следующую ошибку

Compile Time error: Sub or function not defined

Ниже мой макрос

Sub RemoveDups()

Dim wrkSht As Worksheet
Dim lLastCol As Long
Dim lLastRow As Long
Dim i As Long

'Work through each sheet in the workbook.
For Each wrkSht In ThisWorkbook.Worksheets

    'Find the last column on the sheet.
    lLastCol = LastCell(wrkSht).Column

    'Work through each column on the sheet.
    For i = 1 To lLastCol

        'Find the last row for each column.
        lLastRow = LastCell(wrkSht, i).Row

        'Remove the duplicates.
        With wrkSht
            .Range(.Cells(1, i), .Cells(lLastRow, i)).RemoveDuplicates 
Columns:=1, Header:=xlNo
        End With
    Next i

Next wrkSht

End Sub

может кто-нибудь помочь мне с этим ... спасибо

Answer 1

LastCell(wrkSht).

Он не может найти функцию LastCell в вашем проекте VBA.